Серый форум — VBS проверка существования файла по маске

Re: VBS проверка существования файла по маске

null@example.com (smaharbA) — Tue, 11 Sep 2012 03:45:17 +0000

в виндузе для этого есть планировщик задач

Re: VBS проверка существования файла по маске

null@example.com (xsanekk) — Mon, 10 Sep 2012 13:38:30 +0000

Спасибо за ответы и скрипты! Они работают, но как сделать так что бы он сканировал каждые 5 минут на входящие файлы? Как сделать что бы скрипт начинал за ново работать с задержкой например 5 минут? Надо использовать Sleep Do loop? Или что то другое? Насколько я понял goto нет... или проще использовать планировщик виндовс?

Re: VBS проверка существования файла по маске

null@example.com (Dmitrii) — Fri, 07 Sep 2012 03:25:17 +0000

xsanekk, проверку наличия файлов с заданным расширением в заданной папке можно выполнить так:

strPath = "D:\Temp"
Set objFolderItems = CreateObject("Shell.Application").NameSpace(strPath).Items
objFolderItems.Filter 64 + 128, "*.iso"
MsgBox "Кол-во элементов: " & objFolderItems.Count

Если задача решается с целью получения уведомления о появлении некоего файла в заданной папке, то для этого лучше использовать иной инструмент: WMI-подписку на соответствующее системное событие.
Ищите на форуме темы по ключам CIM_DirectoryContainsFile и __InstanceCreationEvent.

Re: VBS проверка существования файла по маске

null@example.com (Rumata) — Thu, 06 Sep 2012 22:00:54 +0000

Fedor пишет:

Не уверен, что допустимо использовать маску файлов

Совершенно верно.

Лучше, на мой взгляд, для поиска файлов, соответствующих заданному шаблону, использовать полноценное регулярное выражение.

Если необходимо делать поиск по маске (*.RTF), то надо преобразовать маску в регулярное выражение. Возможно существуют простые средства в VBS по преобразованию маски в правильное регулярное выражение, но оно мне не знакомо. Поэтому я предлагаю использовать следующую функцию:


' функция преобразования шаблонов DOS вида *.RTF
' в правильное регистро-независимое регулярное выражение вида .*\.RTF
function pattern2regexp(pattern)
	dim re
	set re = new RegExp
	re.Pattern = "([\(\)\{\}\[\]\|\\\/\.\^\$])"
	re.Global = True

	pattern = re.Replace(pattern, "\$1")
	pattern = Replace(pattern, "*", ".*")
	pattern = Replace(pattern, "?", ".")

	set re = new RegExp
	re.Pattern = pattern
	re.IgnoreCase = true

	set pattern2regexp = re
end function

В дальнейшем результат функции можно использовать для поиска определенных файлов, соответствующих заданному шаблону:


pattern = "*.RTF"
set re = pattern2regexp(pattern)
...
if re.Test(filename) then
	WScript.Echo "File exists: " & filename
end if

Re: VBS проверка существования файла по маске

null@example.com (Fedor) — Thu, 06 Sep 2012 20:34:39 +0000

Есть увереность что скрипт различит:
file = "O:\instr\1\*.RTF" и For each File In Files?
Как мне помнится VBS не различает регистр букв в переменных, соответственно проверяется наличие текущего файла из коллекции, а не соответствие его маске.
Называй вещи своими именами, например так: mask_file= "O:\instr\1\*.RTF"

Что делает данная строка FSO.FileExists(file)? Не уверен, что допустимо использовать маску файлов, а не конкретный файл. Если все таки пройдет использование маски, тогда вовсе не нужно проверять каждый файл на соответствие маске достаточно написать так:

Dim FSO,FileName                                              'Объявляем переменные
Set FSO = WScript.CreateObject("Scripting.FileSystemObject") 'Создаем объект FileSystemObject
set WshShell = CreateObject("WScript.Shell") 
iDir = "O:\instr\1\"                                     'Директория где проверяем наличие файла
mask_file = "O:\instr\1\*.RTF"                             'Маска файлов

i=0 
do while i = 0
WshShell.Sleep 5000                                         'Сколько ждать? (1000=1секунда)
if  FSO.FileExists(mask_file)  Then 
  MsgBox ("Пришел файл!")                                     
end if
loop

Собственно зачем весь сыр-бор? Только для того, что бы уведомить пользователя о приходе файла?

VBS проверка существования файла по маске

null@example.com (xsanekk) — Thu, 06 Sep 2012 15:33:23 +0000

Привет всем! Помогите пожалуйста, вот написал скрипт. Проверяет файлы из заданной директории по маске, в папке где проверяется подпапка, ее нельзя перемещать.

Dim FSO,FileName                                              'Объявляем переменные
Set FSO = WScript.CreateObject("Scripting.FileSystemObject") 'Создаем объект FileSystemObject
iDir = "O:\instr\1\"                                     'Директория где проверяем наличие файла
file = "O:\instr\1\*.RTF"                             'Маска файлов

i=0 
do while i = 0

Set Files = FSO.GetFolder(iDir).Files

set WshShell = CreateObject("WScript.Shell") 
WScript.Sleep 5000                                         'Сколько ждать? (1000=1секунда)

For each File In Files
if  FSO.FileExists(file)  Then 
fl=fl+1
end if
next
if fl<>0 then
    MsgBox ("Пришел файл!")                                     'Выводим сообщение
end if
loop

вот приходит файл, появляется сообщение, но если его удалить, сообщение так и выводится! Помогите! В VBS недавно пишу))