Come copiare una cartella in vba (con esempio)

È possibile utilizzare il metodo CopyFolder in VBA per copiare una cartella da una posizione a un’altra.

Ecco un modo comune per utilizzare questo metodo nella pratica:

 Sub CopyMyFolder()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source folder and destination folder
SourceFolder = "C:\Users\bob\Documents\current_data"
DestFolder = "C:\Users\bob\Desktop\"

'copy folder
FSO.CopyFolder Source:=SourceFolder, Destination:=DestFolder

End Sub

Questa particolare macro copia la cartella denominata current_data dalla cartella Documenti al Desktop .

L’esempio seguente mostra come utilizzare questa sintassi nella pratica.

Esempio: come copiare cartelle utilizzando VBA

Diciamo che abbiamo una cartella chiamata current_data situata in una cartella chiamata Documents :

Ora supponiamo di voler utilizzare VBA per copiare l’intera cartella sul Desktop , che attualmente contiene due cartelle:

Prima di utilizzare VBA per copiare questo file, dobbiamo prima abilitare Microsoft Scripting Runtime nell’editor VB.

Per fare ciò, apri l’editor VB, quindi fai clic su Strumenti , quindi su Riferimenti :

Nella nuova finestra visualizzata, scorri verso il basso fino a visualizzare Microsoft Scripting Runtime e seleziona la casella accanto ad essa. Quindi fare clic su OK .

Quindi possiamo creare la seguente macro per copiare la cartella:

 Sub CopyMyFolder()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source folder and destination folder
SourceFolder = "C:\Users\bob\Documents\current_data"
DestFolder = "C:\Users\bob\Desktop\"

'copy folder
FSO.CopyFolder Source:=SourceFolder, Destination:=DestFolder

End Sub

Una volta eseguita questa macro, la cartella denominata current_data verrà copiata dalla cartella Documenti sul desktop :

Anche la cartella current_data originale rimarrà nella cartella Documenti .

Nota : puoi trovare la documentazione completa per il metodo CopyFolder qui .

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

Come creare cartelle utilizzando VBA
Come eliminare cartelle utilizzando VBA
Come elencare i file in una cartella utilizzando VBA