Тема: VBScript: Слежение за изменениями файлов в директории?
Видел несколько примеров о слежении за файлом, но мне нужно реализовать слежку за всей дерикторией.
AttachmentFolder = "C:\temp"
Dim oMessage
'Set oMessage = CreateObject("CDO.Message")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShellApp = CreateObject("Shell.Application")
Set objFolderItems = objShellApp.NameSpace(AttachmentFolder).Items()
For Each objFolderItem In objFolderItems
If Not objFolderItem.IsFolder Then
Set objFile = objFSO.GetFile(objFolderItem.Path)
If (LCase(Right(objFolderItem.Name, 4)) = ".txt") Or (LCase(Right(objFolderItem.Name, 4)) = ".rar") Then
oMessage.AddAttachment objFile
End If
End If
Debug.WriteLine objFile
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(objFile)
x = f.DateLastModified
If f.DateLastModified > x Then
WScript.Echo "File modifed"
x = f.DateLastModified
End If
Debug.WriteLine x
Next
Этот код берет пути и и записывает в переменную дату последней модификации.
Подскажите корректно будет если я буду Х буду писать в ini файл, а перед запуском скрипта считывать в массив?
Пытался сделать бесконечный цикл, но такда при попытке сохранить изменения в файле, выводится сообщение
---------------------------
Notepad
---------------------------
Cannot create the C:\TEMP\New Text Document (2).txt file.
Make sure that the path and filename are correct.
---------------------------
OK
---------------------------