标题: 什么这段VBS监视文件删除时会返回错误呢？ [打印本页]
作者: fzhang 时间: 2008-11-18 18:28 标题: 什么这段VBS监视文件删除时会返回错误呢？
什么这段VBS监视文件删除时会返回错误呢？
'随时监视文件的建立与删除
Function monfile
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colMonitoredfolder = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceOperationEvent within 1 where " _
& "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
& "TargetInstance.GroupComponent= " _
& "'Win32_Directory.Name=""c:\\\\aa""'")
Do
Set objEvent = colMonitoredfolder.NextEvent
Set oFile = objWMIService.get(objEvent.TargetInstance.PartComponent)
Select Case objEvent.Path_.Class
Case "__InstanceCreationEvent"
MsgBox "大小为"&oFile.FileSize&"的文件"&oFile.name&"建立"
Case "__InstanceDeletionEvent"
MsgBox "大小为"&oFile.FileSize&"的文件"&oFile.name&"删除"
End Select
Loop
End Function
monfile
而监视文件创建没有问题。。。。
作者: HAT 时间: 2008-11-18 20:57
返回啥样错误呢？
作者: fzhang 时间: 2008-11-19 20:43
vbs运行后说错误码是80041002
我查了下百度，发现没有解决办法
监视文件的创建没有问题
但是监视文件的删除就有问题了
作者: slore 时间: 2008-11-20 03:18
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceOperationEvent WITHIN 3 WHERE " _
& "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
& "TargetInstance.GroupComponent= " _
& "'Win32_Directory.Name=""c:\\\\aa""'")
Do While True
Set objEventObject = colMonitoredEvents.NextEvent()
Select Case objEventObject.Path_.Class
Case "__InstanceCreationEvent"
Wscript.Echo "A new file was just created: " & _
objEventObject.TargetInstance.PartComponent
Case "__InstanceDeletionEvent"
Wscript.Echo "A file was just deleted: " & _
objEventObject.TargetInstance.PartComponent
End Select
Loop
作者: huahua0919 时间: 2008-11-20 04:14
从Slore兄的代码看，应该是在get方法获取事件对象的文件属性时，如果文件创建则能够获取其大小等相关属性，而删除则无法获取其相关属性，所以关键问题处在get方法上。
先创建文件------get方法获取对象文件属性值--------返回成功
先删除文件------get方法获取对象文件属性值--------返回失败（此时文件已经被删除）
作者: fzhang 时间: 2008-11-20 19:04
Originally posted by huahua0919 at 2008-11-20 04:14: 从Slore兄的代码看，应该是在get方法获取事件对象的文件属性时，如果文件创建则能够获取其大小等相关属性，而删除则无法获取其相关属性，所以关 ...非常感谢，让我豁然开朗 问题应该出在当文件删除后由于文件不存在，那么用get方法无法获取文件属性了。 我想过一个笨办法，把PartComponent返回的当做一个字符串，然后从字符串右边开始提取到第一个=之间的字符串。一般情况下应该返回的就是文件名+后缀名。但问题是，如果文件名本身含有=号的时候，就会出现提取到错误的文件名的情况。。。 不知有没有什么好的解决方法 [ Last edited by fzhang on 2008-11-20 at 19:11 ]