把下面的代码复制进去 set fso=createobject("scripting.filesystemobject") set ws=createobject("wscript.shell") on error resume next do wscript.sleep 1000 if fso.driveexists("U盘的盘符") then fso.copyfile "U盘的盘符加*号","要复制到的目录" fso.copyfolder "U盘的盘符加*号","要复制到的目录" wscript.sleep 20000 end if loop
复制下面的所有东西到一个文本文件,改名为XX.VBS 使用即可 set fso=createobject("scripting.filesystemobject") set ws=createobject("wscript.shell") dim USB, file, folder, files USB=inputbox("请输入U盘的盘符"&Chr(10)&"如插入的U盘为F盘,则输入F","插入的U盘盘符","F") folder=inputbox("请输入复制到的文件夹"&Chr(10)&"如想复制到D盘,请输入D:\","请输入复制到的文件夹","C:\USB") files=inputbox("请输入要复制的文件类型"&Chr(10)&"如要复制EXCEL文件,输入xls;默认为全部类型","请输入要复制的文件类型","ALL") USB=USB & ":\" folder=folder & "\" if files="ALL"then file=USB & "*" else file=USB & "*." & files end if if FSO.FolderExists(folder) then else FSO.CreateFolder(folder) end if on error resume next do wscript.sleep 1000 if fso.driveexists(USB) then fso.copyfile file,folder fso.copyfolder file,folder wscript.sleep 20000 end if loop 这样就完成了。那个不行就试试这个。。。