работа с датой создания файла

[foridi]

Доброго времени суток, уважаемые!

Проблема такая:
под винду нужен скрипт vbs
в папке c:\\test00 периодически появляются файлы 1.txt 2.txt 3.txt 4.txt
задача просмотреть время создания файлов и, если файл 1.txt был создан раньше 3.txt 4.txt,
то в папку c:\test01 положить файл IN.txt. И если наоборот, 4.txt был создан раньше 3.txt и
1.txt, то в папку c:\test01 надо положить файл out.txt
и по факту создания файлов IN или OUT - поубивать содержимое папки test00

все текстовики - пустые, они нужны только с точки зрения их имени и дат создания.

Вся проблема в том, что эти файлы могут появиться в папке в течении 5-7 секунд и как-то надо понять что появилось раньше.

[Казанский]

> если файл 1.txt был создан раньше 3.txt 4.txt, то в папку c:\test01 положить файл IN.txt.
И если наоборот, 4.txt был создан раньше 3.txt и 1.txt, то в папку c:\test01 надо положить файл out.txt

А если 1.txt был создан раньше 3.txt, но позже 4.txt?
Или если 4.txt был создан раньше 3.txt, но позже 1.txt?
Какую роль в этой темной истории играет 2.txt?

[EducatedFool]

Возможно, это вам поможет:

Поиск самого нового файла в папке
http://excelvba.ru/code/LastFile

[foridi]

Сообщение от Казанский

> .....

А если 1.txt был создан раньше 3.txt, но позже 4.txt?
Или если 4.txt был создан раньше 3.txt, но позже 1.txt?
Какую роль в этой темной истории играет 2.txt?

Смысл этих файлов в том, что их в папку кладет система видеонаблюдения в ней есть программные датчики движения по зонам - соответственно, есть 4 зоны. по факту срабатывания одной из зон она кладёт файлик в папку. Файлики могут появляться только как 1-2-3-4 или 4-3-2-1, зоны выставлены на въезде на территорию, и проезжающая машина их может пересекать по очереди. соответственно так я могу понять въехала машина или выехала. просто нет другой возможности из системы видеонаблюдения транслировать событие во внешнюю программу(((
(потом на основе этих файлов просто уже распознавание номеров работает - надо как-то фильтровать въезд и выезд, оно сейчас распознает все номера одним списком)

и ничего уже изменить не могу((( мне вся эта требуха в наследство досталась от предшественника - начальство требует допилить то, что уже есть и ничего вкладывать не желает(((

[foridi]

Сообщение от EducatedFool

Возможно, это вам поможет:

Поиск самого нового файла в папке
http://excelvba.ru/code/LastFile

Эээээмммм.... но это же в эксцельке будет работать только...
в vbs-ном то файле я как процедуры напишу? (хотя, мож я чего-то не знаю)
тут тема вся в том, что я не могу запустить из видеонаблюдения ничего кроме экзешника (там есть возможность по факту срабатывания датчика движения запустить программу) - соответственно я сначала пишу vbs-ный сценарий, а потом его конвертирую прогой vbstoexe в экзешник.
... а уже эти экзешники и должны будут запускать требующийся скрипт:
они при создании файлов в папке постоянно проверяют - если файлов больше 3-х, то управление передаем скрипту, который и анализирует что появилось первым и соответственно сообщаем (см пост выше) распознаванию номеров - что это, въезд или выезд.

воть.

[EducatedFool]

Это без проблем должно работать в виде файла VBS

Sub УжасноСложныйМакрос()
    On Error Resume Next: Err.Clear
    folder$ = "c:\test00\"
    
    Dim res As Boolean: res = FileDateTime(folder$ & "1.txt") < FileDateTime(folder$ & "4.txt")
    If Err Then Exit Sub    ' один из файлов не найден (или оба не найдены)
    
    MkDir "c:\test01\" ' создаем папку, если её нет

    If res Then
        ' если 1.txt создан раньше чем 4.txt
        FileCopy folder$ & "1.txt", "c:\test01\IN.txt"    ' создаем файл
    Else
        ' если 4.txt создан раньше чем 1.txt
        FileCopy folder$ & "1.txt", "c:\test01\OUT.txt"    ' создаем файл
    End If

    Kill folder$ & "*"    ' удаляем все файлы из папки
End Sub

[EducatedFool]

При использовании скрипта в VBS немного подкорректировать придется - например, убрать Dim res As Boolean

Можно и цикл встроить - с проверкой на наличие файлов каждые несколько секунд.

И конвертировать в EXE совсем необязательно - в планировщик задач можно засунуть и выполнение скрипта VBS

Вот одного не понял - создался файл IN
Через минуту другая машина выехала - создался файл OUT
Потом снова машина заехала - снова создался файл IN (хотя он уже есть)
Смысл дальше создавать файлы? Оба файла ведь уже есть в папке...

[Serge_Bliznykov]

тут тема вся в том, что я не могу запустить из видеонаблюдения ничего кроме экзешника (там есть возможность по факту срабатывания датчика движения запустить программу) - соответственно я сначала пишу vbs-ный сценарий, а потом его конвертирую прогой vbstoexe в экзешник.

извините, что немного в offtop - но почему бы Вам не воспользовать любым нормальным языком программирования с компилятором ?

Могу завтра Вам написать подобную программу на Delphi (и научить компилировать, если надо)...

[foridi]

Сообщение от EducatedFool

При использовании скрипта в VBS немного подкорректировать придется - например, убрать Dim res As Boolean

Можно и цикл встроить - с проверкой на наличие файлов каждые несколько секунд.

И конвертировать в EXE совсем необязательно - в планировщик задач можно засунуть и выполнение скрипта VBS

Вот одного не понял - создался файл IN
Через минуту другая машина выехала - создался файл OUT
Потом снова машина заехала - снова создался файл IN (хотя он уже есть)
Смысл дальше создавать файлы? Оба файла ведь уже есть в папке...

Гм... каюсь, сумбурненько объяснил..
Я изначально файлы 1-2-3-4 создаю скриптом, но этот скрипт запускает не винда и ее планировщик. его запускает сама прога (сервер) видеонаблюдения по факту срабатывания одного из программных датчиков движения. а из этого чудо-сервера видеонаблюдения я вообще ничего транслировать не могу во внешние программы((( я даже не могу транслировать событие срабатываня датчика движения в какой-то конкретной камере(((
зато у этой проги есть функция при срабатывании датчика движения - проиграть звук. вот чуток с этим моментом похимичив, я смог не звук играть, а экзешник запускать. (скрипт, батник, цмд-шник пробовал - не запускаеся. тока exe получается. отсюда и нужность конвертить скрипт)

а касаемо вопросов Ваших:
прога, которая номера распознает - на базе 1с 8.2, (точнее движок распознания к нему прикручен) А 1с-ом я как раз уже по наличию IN или OUT безусловно понимаю въезд или выезд произошел. И, как только номерок машины распознался, прежде чем фотку с камеры дёргать, мне надо понять с какой - вот и лезем в папку, проверяем направление и соответственно уже нужную камеру дёргаем. а файлик я уже 1с-ом из папки грохну.

просьба:
а чуть подробнее можно про убрать Dim res As Boolean?
и про цикл - чтобы оно раз в секунду-две проверяло)))

[foridi]

Сообщение от Serge_Bliznykov

извините, что немного в offtop - но почему бы Вам не воспользовать любым нормальным языком программирования с компилятором ?

Могу завтра Вам написать подобную программу на Delphi (и научить компилировать, если надо)...

Просто потому, что не сталкивался с этим ниразу. ВБА-то в эксцеле приходилось использовать частенько, отсюда и выбор такой))