copiare una cartella ed il suo contenuto

[ngs]

ragazzi,come faccio in vb a copiare una cartella ed il suo contenuto in un'altra?

[Sypher]

Col FileSystemObject!

[ngs]

ho capito,ho fatto questa funzioncina:

Public Function SalvaFolder()

On Error GoTo Errore:
Set FSO = New FileSystemObject

xConferma = FSO.CopyFolder(xPathOrigine, xPathDestinazione)


Set FSO = Nothing
Exit Function
Errore:
SalvaFolder = xConferma
End Function

ma da questo errore:

errore di compilazione:

prevista function o variabile

[Sypher]

Così:
Public Function SalvaFolder()

On Error GoTo Errore:
Set FSO = New FileSystemObject

FSO.CopyFolder xPathOrigine, xPathDestinazione


Set FSO = Nothing
Exit Function
Errore:
SalvaFolder = xConferma
End Function

[ngs]

grazie, funziona!

come faccio ad intercettare eventuali errori nella copia etc ...?

senti una cosa,non c'è una maniera per fare questo lavoro senza riferimenti alla lib del filesystemobject?

[Sypher]

Sostituisci questo:
Set FSO = CreateObject("Scripting.FileSystemObject") al posto di questo:
Set FSO = New FileSystemObject

[Sypher]

non ti basta On Error GoTo Errore?

[ngs]

mi spieghi perchè dovrei sostituirlo?

[Sypher]

Sennò forse così è meglio:
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.CopyFolder xPathOrigine, xPathDestinazione
if Err.Number <> 0 then
MsgBox Err.Description
'Più eventuali altri controlli o se vuoi farlo uscire
end if

[Sypher]

Originariamente inviato da ngs
mi spieghi perchè dovrei sostituirlo?

Così puoi togliere i riferimenti alla libreria non è questo che volevi?