[MakeMeFeel]

ниукого нет никаких идей?

[megaloman]

Код:

Public FSO, Finfo, RegMaska

AllDir = "C:\{Disk_F}\JS_Host"    ' ---------  Полное имя рабочего каталога (без слэжа \ на конце)
Info = "C:\kuku.info"
Maska= "^.*\.xls"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Finfo = FSO.OpenTextFile(Info, 2, True)

Set RegMaska = New RegExp
RegMaska.Pattern = Maska
RegMaska.IgnoreCase = True

Call AllFiles(AllDir)
Finfo.Close

MsgBox "Скрипт завершился"

' ---------------------------------------------------------------------------
Sub AllFiles(WDir)

    Set Folds = FSO.GetFolder(WDir)
    Set SubF = Folds.SubFolders
    Set Files = Folds.Files
         
    For Each jF In Files
	If RegMaska.Test(jf) Then Finfo.WriteLine jF + " " + CStr(jF.DateLastModified) + " " + CStr(jF.Size)
    Next

    For Each Folder In SubF
        Call AllFiles(WDir + "\" + Folder.Name)
    Next

End Sub

Код:

Public FSO, Finfo, OldFiles, RegMaska

AllDir = "C:\{Disk_F}\JS_Host"                     ' ---------  Полное имя рабочего каталога (без слэжа \ на конце)
Info = "C:\kuku.info"
Edit = "C:\kuku.edit"
Maska= "^.*\.xls"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set RegMaska = New RegExp
RegMaska.Pattern = Maska
RegMaska.IgnoreCase = True

Set Finfo = FSO.OpenTextFile(Info, 1, False)
OldFiles = Finfo.ReadAll
Finfo.Close

Set Finfo = FSO.OpenTextFile(Edit, 2, True)

Call AllFiles2(AllDir)
Finfo.Close

MsgBox "Скрипт завершился"

' ---------------------------------------------------------------------------
Sub AllFiles2(WDir)
    
    Set Folds = FSO.GetFolder(WDir)
    Set SubF = Folds.SubFolders
    Set Files = Folds.Files
         
    For Each jF In Files
	If RegMaska.Test(jf) Then 
        	InFile = jF + " " + CStr(jF.DateLastModified) + " " + CStr(jF.Size)
        	If InStr(OldFiles, InFile) = 0 Then Finfo.WriteLine InFile
        End If
    Next

    For Each Folder In SubF
        Call AllFiles2(WDir + "\" + Folder.Name)
    Next

End Sub

Укажите в скриптах свои пути и нужную маску в регулярном выражении (сейчас там указаны файлы с расширением .xls)

[MakeMeFeel]

cпасибо еще раз(:

[MakeMeFeel]

мне жутко неудобно, но очень нужна помощь. Времени разобраться с vbs к сожаления не дают но требуют исправить скрипт.

info.txt - в нем содержиться имя файла, размер, дата последнего редактирования
foredit.txt - содержит путь к файлу
скрипт ищет только *.jpg файлы

Требуется чтобы в каждой папке, находящейся в корневом каталоге, содержался файл info.txt
Алгоритм должен работать следующим образом:
Проверяется наличие файла info.txt в текущей папке, если файл найден:
создается файл foredit.txt
происходит сравнение текущей информации о файлах с информацией содержащейся в файле "info.txt"
(имя, размер, дата последнего редактирования)
при нахождении различий:
в файл foredit записывается путь к измененному/новому файлу.
запускается внешняя программа со след. параметрами
"d:\nconvert.exe -overwrite -out jpeg -keepfiledate -i -opthuff -rtype lanczos -resize 1600 1200 -q 80 <путь к файлу foredit.txt>"
(программа выполняет все автоматически и сама закрывается)
Скрипт продалжает работу после завершения процесса предыдущей программы
В файл info.txt записывается обновленная информация
Файл foredit.txt удаляется
если различий нет, то скрипт переходит к след. папке


Если файл info.txt не найден:
Создается файл info.txt
Создается файл foredit.txt
В файл foredit.txt записывается путь ко всем файлам находящимся в данной папке
Запускается внешняя программа со след. параметрами:
"d:\nconvert.exe -overwrite -out jpeg -keepfiledate -i -opthuff -rtype lanczos -resize 1600 1200 -q 80 <путь к файлу foredit.txt>"
(программа выполняет все автоматически и сама закрывается)
Скрипт продалжает работу после завершения процесса предыдущей программы
В файл info.txt записывается информация о файлах
Файл foredit.txt удаляется.