系统城精品系统

深度技术Win7系统插入U盘自动复制文件的方法

发布时间:2014-11-21发布者:系统城-wgb001浏览数:173

    深度技术Win7系统实现U盘插入电脑便可自动复制文件的技巧分享给大家,u盘方便携带,用于存储、拷贝文件深受广大用户喜爱。如果需要大量复制电脑文件或资料是一件很麻烦的事情,一一复制的话很浪费时间。有什么方法可以自动复制内容呢?下面小编为大家讲解深度技术Win7系统插入U盘自动复制文件的方法。

深度技术Win7系统插入U盘自动复制文件的方法


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即可。
    深度技术Win7系统通过以上设置后,只需要将u盘插入电脑就可以实现轻松自动复制文件了,简单实用的方法。感兴趣的用户可以动手操作看看,希望对大家有所帮助!

本站发布的系统与软件仅为个人学习测试使用,请在下载后24小时内删除,不得用于任何商业用途,否则后果自负,请支持购买微软正版软件!
如侵犯到您的权益,请及时通知我们,我们会及时处理。
Copyright @ 2011 系统城