Подскажите пожалуйста, как можно переделать строчку FileName = "C:\Net022010.rar", чтобы мы проверяли существование не конкретного файла, а просто любого файла с расширением .rar?
т.е. необходимо проверить есть ли в папке C:\Arhiv\ хоть один архив
| Код |
'******************************************************************
' Имя: IsExistsFile.vbs
' Язык: VBScript
' Описание: Проверка существования файла
'*******************************************************************
Dim FSO,FileName 'Объявляем переменные
'Создаем объект FileSystemObject
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
FileName = "C:\Arhiv\Net022010.rar"
if FSO.FileExists(FileName) Then
'Выводим информацию на экран
WScript.Echo "Файл существует"
else
'Выводим информацию на экран
WScript.Echo "Файл не существует"
end if
'************* Конец *********************************************
|
Пишу на VBS. |