;;; Папки для ревизии через точку с запятой
dwg = D:\ADT;D:\Text;D:\support
;;; Папка для хранения файловых списков
path = D:\Mine\ADT
;;; Последний файловый список
adt = %path%\ADT.txt
;;; Список недостающих файлов
del = %path%\del.txt
;;; Список новых файлов
newby = %path%\newby.txt
FileDelete, %del%
Loop, read, %adt%, %del%
IfNotExist, %A_LoopReadLine%, FileAppend, %A_LoopReadLine%`n
FileRead, s, %adt%
FileDelete, %adt%
FileDelete, %newby%
SetBatchLines, -1 ; Make the operation run at maximum speed.
Loop, parse, dwg, ';
Loop, Files, %A_LoopField%\*.*, R
{
FileAppend, %A_LoopFileLongPath%`n, %adt%
IfNotInString, s, %A_LoopFileLongPath%
FileAppend, %A_LoopFileLongPath%`n, %newby%
}
FileCopy, %adt%, %path%\%A_Now%.txt
;~ FileAppend, Text, %del%
IfExist, %del%
{
FileRead, s, %del%
MsgBox, 4144, Lost file(s) in %dwg%, %s%
;~ Run, %del%
}
;~ FileAppend, Text, %newby%
IfExist, %newby%
{
FileRead, s, %newby%
MsgBox, 4160, New file(s) in %dwg%, %s%
} |
