Копирование файлов определенного формата с сетевого диска

malder_d

Добрый вечер!!
Помогите в реализации написании скрипта.
Задача: существует сетевая папка в которую в течении дня попадают разные типы файлов, достигать может около 200. меня интересуют только файлы с расширением *.xls, данные файлы приходят в разное время. Необходимо если это возможно чтобы скрипт мониторил сетевую папку, допустим каждый 5 мин, и при появлении новых *.xls файлов копировал их мне в папку допусти d:\DOC, при этом скриптик должен учитывать что в сетевой папке появляются новые *.xls файлы и он не должен копировать снова все файлы ексель а только те новые которые появились.
пока что я могу просто копировать определенный тип файлов, но как сделать мониторинг и как сделать чтобы копировались только новые поступившие файлы не знаю.

Код Visual Basic

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 StartFolder = "d:\eee1" ' откуда копируем EndFolder = "d:\www\" ' куда копируем '*********************************************** Set StartFiles = CreateObject("Scripting.FileSystemObject") Set WSNetwork = CreateObject("WScript.Network") num = 0 'копируем файлы For Each File in StartFiles.GetFolder(StartFolder).Files If LCase(StartFiles.GetExtensionName(File)) = "xls" Then StartFiles.CopyFile File, EndFolder & File.Name, True num = num+1 End If Next 'сообщаем о результатах копирования If Err.Number Then WScript.Echo "Обновление прошло с ошибками. Сообщите об этом администратору." else WScript.Echo "Обновление прошло успешно. Скопировано " & num & " файлов." Err.Clear End if

AShurup

Вижу решение такое:
1. Создаем список имен файлов с нужным расширением, которые есть в папке StartFolder во временный файл "1".
2. Создаем список имен файлов с нужным расширением, которые есть в папке EndFolder во временный файл "2".
3. Сверяем построчно содержимое этих файлов. Если нет в списке копируем нужные файлы.
4. Удаляем временные файлы.
5. Все это в цикл с задержкой в 5 минут.

malder_d

Ребята есть еще идеи???

AShurup

Наверняка можно обойтись без временных файлов... только не знаю как

Smith&Wesson

Может пробовать, копировать файлы, которые появились на диске, позже времени запуска последней отработки копирования? Например, запускаем батник (копируем файлы) => записываем в переменную (например %first%) текущую дату и время (%date% %time%).
Через пять минут, снова запускаем батник и сравниваем дату создания файлов с %first%, если она отличается (т.е. файлы были созданы после %first%), соответственно копируем эти файлы, куда нужно.
Лучше использовать команду XCOPY с параметром /D:m-d-y (Копирование файлов, измененных не ранее указанной даты).
Вот, примерно так...
Единственная сложность - не знаю, как точно выполнять сравнение даты (времени) файлов. Конструкция,

Код
1 if %~t1 GTR %first% exit /b

в данном случае, может не работать... Нужно проверять...

malder_d

Добрый вечер, я все-таки реализовал свою задачу, по примеру предложеному AShurup, за что емк и спасибо. Может вариант и не очень удачный о все работает.

Принцип реализации моей задачи такой:
1. Проверяем наличие файла в папке с помощью функции DIR.
2. Проверяем есть ли в текстовом файле наличие такого имени файла, если нет записываем и копируем сам файл в нужную папку.
3. Если имя файла уже такое есть, ничего не делаем.
4. С помощью цикла do while по очереди проверям все найденные файлы в папке с именам ва временном тестовом файле.
5. Реализовываю таймер, и каждый 2 мин проверяю наличие вновь поступивших фалов.
6. В начале запуска программы, по кнопке в форме, очищаю два временных текстовых файла от тех значений которые были записаны в течении дня.