win7系统让u盘插入电脑后自动复制文件的图文技巧

时间：2021-09-23 11:45:30 来源：www.cnomit.cn 作者：佚名浏览次数：

大家对电脑都爱不释手，但偶尔会碰见对win7系统让u盘插入电脑后自动复制文件进行设置的问题，相信大家都是第一次面对win7系统让u盘插入电脑后自动复制文件的问题，那么怎样快速对win7系统让u盘插入电脑后自动复制文件的设置方法非常简单，只需要1、首先在桌面上鼠标右击空白处选择“新建--文本文档”项； 2、然后将下面的代码复制粘贴到文件里面，然后将其重命名为XX.VBS即可，具体代码如下：的顺序来就搞定了，现在我们就一同详细的学习一下win7系统让u盘插入电脑后自动复制文件具体的设置方法：

1、首先在桌面上鼠标右击空白处选择“新建--文本文档”项；

win7 64位系统中让u盘插入电脑后自动复制文件

2、然后将下面的代码复制粘贴到文件里面，然后将其重命名为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
3、这样就完成了，只需要将u盘插入电脑就可以实现自动复制了，很简单吧。