Question

关于vbs，自动复制U盘指定类型文件到电脑，没法实现，求高手大侠解，

set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("G:\") then
filecopy App.Path & "\1.ppt", "C:\Program Files\other"
wscript.sleep 20000
end if
loop
菜鸟求解，还有如果自动判断插入U盘，并复制的代码是什么= =？

Answer 1

vbs可以调用wmi类库里win32_VolumeChangeEvent来监控本机盘符的变化事件，所以楼主的问题可以实现。下面是代码：
Dim fso
Dim objWMIService

strComputer = "." '句点代表本机
set fso = createobject("scripting.filesystemobject") '创建文件系统操作的对象
filePath = "" '这里定义你要从本机电脑拷贝的文件的全路径，如c:\1.txt
'创建WMI的连接
Set objWMIService = GetObject("winmgmts:" _
& "!\\" _
& strComputer & "\root\cimv2")
'对系统盘符变更事件建立通知查询，即有盘符的增加或删除都会被捕获
Set colMonitoredEvents = objWMIService. _
ExecNotificationQuery( _
"Select * from Win32_VolumeChangeEvent")
Do '循环，不间断查询 有无盘符变更事件
Set objLatestEvent = colMonitoredEvents.NextEvent
path = objLatestEvent.DriveName & "\" '得到u盘的盘符
fso.CopyFile filePath, path '把本机电脑文件拷贝到u盘里
Loop
set fso = Nothing '收尾处理
set objWMIService = nothing
'这个脚本保存为任何的vbs都可以，也不用开机就自动运行，你想用的时候提前打开此文件就行。但是不打开这个脚本是没用的，因为捕获不了插入u盘的动作。