вторник, 1 июня 2010 г.

Скрипт проверки наличия файла

Иногда в админской практике бывает нужно проверить наличие некоторого файла в определённом месте (файла-флага) и в зависимости от результата проверки выполнить определённые действия.
Привожу заготовку скрипта, проверяющего наличие файла. В качестве пути можно использовать как локальный путь вида диск:\\папка\файл, так и UNC-путь вида \\хост\ресурс\папка\файл.


Option Explicit
On Error Resume Next

'Объявляем переменные
Dim objFSO, strFlagFile

'Создаём объект файловой системы
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Задаём путь к файлу-флагу
strFlagFile = "путь_к_файлу\flag.file"

'Проверка наличия файла
If objFSO.FileExists(strFlagFile) Then
  WScript.Echo "File Exist!"
Else
  WScript.Echo "File Not Exist!"
End If

WScript.Quit 0