Jak skopiować folder w vba (z przykładem)

Aby skopiować folder z jednej lokalizacji do drugiej, możesz użyć metody CopyFolder w języku VBA.

Oto powszechny sposób wykorzystania tej metody w praktyce:

 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

To konkretne makro kopiuje folder o nazwie current_data z folderu Dokumenty na Pulpit .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak skopiować foldery za pomocą VBA

Załóżmy, że mamy folder o nazwie current_data znajdujący się w folderze o nazwie Dokumenty :

Załóżmy teraz, że chcemy użyć VBA do skopiowania całego folderu na Pulpit , który obecnie zawiera dwa foldery:

Zanim użyjemy VBA do skopiowania tego pliku, musimy najpierw włączyć Microsoft Scripting Runtime w edytorze VB.

Aby to zrobić, otwórz edytor VB, następnie kliknij Narzędzia , a następnie kliknij Referencje :

W nowym oknie, które się pojawi, przewiń w dół, aż zobaczysz Microsoft Scripting Runtime i zaznacz pole obok niego. Następnie kliknij OK .

Następnie możemy utworzyć następujące makro, aby skopiować folder:

 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

Po wykonaniu tego makra folder o nazwie current_data zostanie skopiowany z folderu Dokumenty na pulpit :

Oryginalny folder current_data również pozostanie w folderze Dokumenty .

Uwaga : Pełną dokumentację metody CopyFolder można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak tworzyć foldery za pomocą VBA
Jak usunąć foldery za pomocą VBA
Jak wyświetlić listę plików w folderze za pomocą VBA