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
