U教授 U盘教程 U盘常见问题 U盘插入电脑自动复制拷贝文件的方法

U盘插入电脑自动复制拷贝文件的方法

更新时间:2015-03-21 14:20:32作者:ujiaoshou

    U盘插入电脑自动复制拷贝文件的技巧分享给大家,如果需要复制或移动电脑文件大部分用户都会选择使用U盘,安全方便携带。如果拷贝大量文件一一进行复制粘贴是很大工程的。有什么办法能够实现U盘自动拷贝所需文件呢?下面小编为大家介绍一个小技巧,只要将电脑插入U盘后就可以自动复制的。下面一起看看详细操作!

u=1864431755,3135583461&fm=21&gp=0.jpg

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盘插入电脑自动复制拷贝文件的方法介绍到这里,感兴趣的用户可以动手尝试看看!

热门推荐

Copyright © 2012 www.ujiaoshou.com U教授 All right reserved.
官方QQ群:U教授官方交流qq群 99610254

豫ICP备2022026122号-1

版权信息