access vba 複製文件夾

用vba完成文件夾的複製，需要使用FileSystemObject對象來完成，FileSystemObject的copyfolder方法可以把文件夾從一個地方複製到另一個路徑。下面是一個示例代碼：

Private Sub CommandButton1_Click()
        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.CopyFolder "d:\a", "e:\"
        Set fso = Nothing
End Sub