Question

如何用vbs程序 自动复制U盘的内容求大神帮助

运行后当把U盘插入电脑后能够自动把U盘里的PPT考下来哇

Answer 1

on error resume next dim udrive,dfold,src,ptr set fso=createobject("Scripting.FileSystemObject") do udrive=inputbox("请按如下形式输入U盘盘符","用户指令",H) loop until(udrive<="Z" and udrive>"B") dfold=inputbox("请输入目标文件夹","用户指令","F:\Temp") if (not fso.folderexists(dfold)) then fso.createfolder(dfold) end if src=udrive + ":\*.ppt" ptr=dfold + "\" do while(1=1) if fso.driveexists(udrive) then fso.copyfile src,ptr,true set fso=nothing wscript.quit end if wscript.sleep 2000 loop 以上内容另存为xue.vbs即可，双击后运xing