参考:
strComputer = "."
set fso = createobject("scripting.filesystemobject")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService. _
ExecNotificationQuery( _
"Select * from Win32_VolumeChangeEvent")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
path = objLatestEvent.DriveName & "\*.*"
fso.CopyFile path, "d:\123\"
Loop
set fso = nothing
set objWMIService = nothing
温馨提示:答案为网友推荐,仅供参考