在MS Access中FileCopy多个目录中的多个文件

Sub CopyFilesInMultipleDirectories()
    Dim sourceDirectory As String
    Dim destinationDirectory As String
    Dim file As String
    Dim sourcePath As String
    Dim destinationPath As String
    
    ' 设置源目录和目标目录
    sourceDirectory = "C:\Source"
    destinationDirectory = "C:\Destination"
    
    ' 遍历源目录中的所有文件
    file = Dir(sourceDirectory & "\*.*")
    Do While file <> ""
        ' 构建源文件路径和目标文件路径
        sourcePath = sourceDirectory & "\" & file
        destinationPath = destinationDirectory & "\" & file
        
        ' 复制文件
        FileCopy sourcePath, destinationPath
        
        ' 获取下一个文件
        file = Dir
    Loop
    
    MsgBox "文件复制完成！"
End Sub