[VB]Copia di cartelle. Esiste il metodo?

[elfocaotico]

Ciao.
Io ho bisogno di copiare in una directory sotto c: la cartella che si trova sotto c:\windows\desktop\polpo.
Bada bene....
Vorrei che mi copiasse proprio la cartella intera con tutti i files al suo interno. Un po' come se facessi da DOS copy nomecartella.
E' possibile? Esiste un CopyFolder o roba del genere?

Grazie e ciao

[xegallo]

Private Sub subFile_Xcopy(ByVal sSource As String, ByVal
    sDestination As String, ByVal bOverwrite As Boolean)
    Dim fs As New Scripting.FileSystemObject
    On Error Resume Next
    fs.CopyFolder sSource, sDestination, bOverwrite
End Sub

Private Sub xx_Copy()
    Dim fs As New Scripting.FileSystemObject, f As Scripting.file, p As Scripting.Folder
    For Each f In fs.GetFolder(temp).Files
        fs.CopyFile f.Path, sDestination, bOverwrite
    Next
    For Each p In fs.GetFolder(temp).SubFolders
        'Recurse
    Next
end sub

non testato prova

[elfocaotico]

Al momento non posso testare.

Se non và te lo faccio sapere al + presto :tongue:
Grazie mille a buon rendere.

[elfocaotico]

Potresti indicarmi come o dove mettere la directory da copiare?
Ad esempio c:\windows\desktop\polpo....

Grazie ancora e scusa se insisto :tongue:

[elfocaotico]

Uppete :gren: