VB 关于批量复制文件的 请求帮助
说明： D：\AAA ， D：\BBB , D盘下有2个文件夹，分别为 AAA，BBB，其中AAA文件夹下有10个TXT文件，文件夹BBB 为空文件夹
要求： 将 AAA 文件夹下的 10个TXT 文件复制到 文件夹BBB 下， 用COPY 语句不行，不知道错在哪里，请求老师指导，谢谢
Private Sub Command1_Click()
Copy D：\AAA\*.txt", "D：\BBB"
End Sub
[解决办法]
1，Copy 函数从何得来？没记错应该是filecopy 或者是
Set fso = CreateObject("Scripting.FileSystemObject")
fso.copy……
Dim SourceFile, DestinationFile As String, strFile As String
strFile = Dir("D:\AAA\*.txt")
Do Until strFile = ""
SourceFile = "D:\AAA" & strFile
DestinationFile = "D:\BBB" & strFile
FileCopy SourceFile, DestinationFile
strFile = Dir()
Loop
Dim strFile As String
strFile = Dir("D:\AAA\*.txt")
Do Until strFile = ""
Name "D:\AAA" & strFile As "D:\BBB" & strFile
strFile = Dir()
Loop
