VB 关于批量复制文件的 请求帮助

Question

说明： 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

Answer 1

1，Copy 函数从何得来？没记错应该是filecopy 或者是Set fso = CreateObject("Scripting.FileSystemObject") 
fso.copy……2，不支持 *.txt这种通配符。

Answer 2

Dim SourceFile, DestinationFile As String, strFile As StringstrFile = Dir("D:\AAA\*.txt")
Do Until strFile = ""  
SourceFile = "D:\AAA\" & strFile
DestinationFile = "D:\BBB\" & strFile
FileCopy SourceFile, DestinationFile
strFile = Dir()
Loop
或Dim strFile As StringstrFile = Dir("D:\AAA\*.txt")
Do Until strFile = ""  
Name "D:\AAA\" & strFile As "D:\BBB\" & strFile
strFile = Dir()
Loop

Answer 3

Shell "copy /y d:\aaa\*.txt d:\bbb",vbHide

Answer 4

楼主的问题直接复制文件夹也可以啊，何必一个个复制呢？
Set Fso = CreateObject("Scripting.FileSystemObject") 
或者引用 Microsoft Scripting Runtime 然后Dim Fso as New FileSystemObject
Fso.CopyFolder "D:\aaa","D:\bbb",[True or False]

Answer 5

http://download.csdn.net/detail/veron_04/3384863