VPF::Проверка существования файла - Форум программистов

Antila

Дата 9.2.2010, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет

Подскажите пожалуйста, как можно переделать строчку 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.

Это сообщение отредактировал(а) Antila - 10.2.2010, 09:53

Данкинг

Дата 9.2.2010, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

А "C:\Arhiv\*.rar" не получится?

--------------------

There's nothing left but silent epitaphs.

Dexx

Дата 9.2.2010, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7

http://msdn.microsoft.com/en-us/library/dk008ty4(VS.71).aspx

--------------------

Antila

Дата 10.2.2010, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет

Ругается, пишет несоответствие типа: 'Dir'

Код


'******************************************************************
' Имя: IsExistsFile.vbs                                            
' Язык: VBScript                                                   
'******************************************************************
Dim MyFile
' Return first *.TXT file, including files with a set hidden attribute.
MyFile = Dir("C:\Arhiv\*.txt", vbHidden)

Код


******************************************************************
' Имя: IsExistsFile.vbs                                            
' Язык: VBScript                                                   
'******************************************************************
Dim MyFile
MyFile = Dir("C:\Arhiv\*.rar", vbArchive)

Это сообщение отредактировал(а) Antila - 10.2.2010, 09:45

Akina

Дата 10.2.2010, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

В VBS нет функции Dir().
FileExists() не работает с символами подстановки.
Следует получить коллекцию файлов каталога и проверять их все на соответствие шаблону. Если вопрос стоИт только в проверке факта наличия - сплитануть через символ, который не допускается в именах, и искать Match в полученной строке.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Antila

Дата 10.2.2010, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет

Цитата(Akina @ 10.2.2010, 11:09)

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

а можно пояснить эту строчку...

Akina

Дата 10.2.2010, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

А чего пояснять? есть массив имён. Собираем его в одну строку, использу в качестве разделителя... ну скажем двойную кавычку. И на полученную строку напускаем наш шаблон (используя Match или RegExp). Если в каталоге есть подходящий файл - будет найдена соответствующая шаблону подстрока.

--------------------

Antila

Дата 10.2.2010, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет

Спасибо, попробую !

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »