Тема: VBScript: Проверка наличия файлов в директории в выводом сообщения
'***************************************************************************************************
' Purpose : Проверка существования файлов в папке по маске
'***************************************************************************************************
Dim FSO,FileName
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
iDir1 = "U:\"
file1 = "U:\*.*"
iDir2 = "Q:\ed"
file2 = "Q:\ed\*.*"
iDir3 = "Q:\Vyp"
file3 = "Q:\Vyp\*.*"
Set Files = FSO.GetFolder(iDir1).Files
For each File1 In Files
if FSO.FileExists(file1) Then
fl=fl+1
end if
next
if fl<>0 then
MsgBox ("Пришли файлы 1!")
end if
Set Files = FSO.GetFolder(iDir2).Files
For each File2 In Files
if FSO.FileExists(file2) Then
fl=fl+1
end if
next
if fl<>0 then
MsgBox ("Пришел файл 2!")
end if
Set Files = FSO.GetFolder(iDir3).Files
For each File3 In Files
if FSO.FileExists(file3) Then
fl=fl+1
end if
next
if fl<>0 then
MsgBox ("Пришел файл 3!")
end ifДобавляю в планировщик запуск допустим каждые 30 минут, когда файлы попадают в какую либо из трех папок, вылетаю все три таблички, а должно только то сообщение которое соответствует заданной папке... подскажи в чем я ошибся...
.
