Да!
Nun-Nun, вот Вам ещё один обещанный выше вариант, со слежением за файлами:
Скрытый текст
Код:
Option Explicit
Dim objFSO
Dim arrFiles
Dim strFile
arrFiles = Array( _
"C:\Temp\Twain.log", _
"C:\Temp\Twain001.Mtx", _
"C:\Temp\Twunk001.MTX", _
"C:\Temp\Twunk002.MTX" _
)
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
For Each strFile In arrFiles
If Not objFSO.FileExists(strFile) Then
With .ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'CIM_DataFile' AND TargetInstance.Name = '" & Replace(strFile, "\", "\\") & "'").NextEvent
WScript.Sleep 2 * 1000
.TargetInstance.Delete
End With
Else
objFSO.DeleteFile strFile, True
End If
Next
End With
Set objFSO = Nothing
WScript.Quit 0
Кроме того, можно комбинировать идеи — например, сначала проверять существование/ждать появления процесса, затем начинать проверять существование/ждать появления файлов.
