Hoe een map in vba te kopiëren (met voorbeeld)

U kunt de CopyFolder- methode in VBA gebruiken om een map van de ene locatie naar de andere te kopiëren.

Hier is een gebruikelijke manier om deze methode in de praktijk te gebruiken:

 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

Deze specifieke macro kopieert de map met de naam current_data van de map Documenten naar het bureaublad .

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: mappen kopiëren met VBA

Laten we zeggen dat we een map hebben met de naam current_data , gelegen in een map met de naam Documenten :

Laten we nu zeggen dat we VBA willen gebruiken om deze hele map naar het bureaublad te kopiëren, dat momenteel twee mappen bevat:

Voordat we VBA gebruiken om dit bestand te kopiëren, moeten we eerst Microsoft Scripting Runtime inschakelen in de VB-editor.

Om dit te doen, opent u de VB-editor, klikt u vervolgens op Extra en vervolgens op Referenties :

In het nieuwe venster dat verschijnt, scrolt u naar beneden totdat u Microsoft Scripting Runtime ziet en vinkt u het vakje ernaast aan. Klik vervolgens op OK .

Vervolgens kunnen we de volgende macro maken om de map te kopiëren:

 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

Zodra deze macro is uitgevoerd, wordt de map met de naam current_data gekopieerd van de map Documenten naar het bureaublad :

De oorspronkelijke map current_data blijft ook in de map Documenten staan.

Opmerking : u kunt hier de volledige documentatie voor de CopyFolder- methode vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Mappen maken met VBA
Hoe mappen te verwijderen met VBA
Bestanden in een map weergeven met VBA