Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "C:\mp3", "D:\mp3"
'这样就把C盘的mp3目录下的所有文件及子目录全部拷贝到D盘的mp3目录下面了。
'如果D盘没有MP3这个文件夹则会自动创建。
另外请注意:VB FileCopy函数复制一个文件到指定位置
'将C盘的123.mp3复制到D盘
FileCopy "C:\123.mp3", "D:\123.mp3"
摘自:网络整理