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

文章来源：
http://www.ujiaoshou.com/upanjc/jiaocheng/79.html#0-tsina-1-41210-397232819ff9a47a7b7e80a40613cfe1