quakerock
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AndVGri
Большое спасибо.
Добавлено:
Dim difTime
difTime = TimeSerial(0, 2, 0)
fo= "D:\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f= FSO.GetFolder(fo)
set sf = f.SubFolders
For Each f1 In sf
If (Now - f1.DateCreated) < difTime Then
Mg = Mg & f1.name
Mg = Mg & vbCrLf
End If
Next
MsgBox Mg
Если папки созданые менее 2 мин назад отсутствуют, то выходит пустое сообщение 
Как сделать, что бы сообщение выходило только тогда, когда папки есть, а когда их нет, то WScript.Quit ?
Добавлено:
Dim difTime
difTime = TimeSerial(0, 5, 0)
fo= "D:\"
Set FSO = CreateObject("Scripting.FileSystemObject")
compare_date=false
Set f= FSO.GetFolder(fo)
set sf = f.SubFolders
For Each f1 In sf
If (Now - f1.DateCreated) < difTime Then
Tx = Tx & f1.name
Tx = Tx & vbCrLf
compare_date=true
End If
Next
If compare_date=true then
MsgBox Tx,, "За последние 5 минут"
Else
WScript.Quit
End If
В итоге работает вот так...
AndVGri
Еще раз огромное спасибо. |
прекращаем флудить и оффтопить.
