Конференция VBStreets

**Юра П** » 04.03.2005 (Пт) 18:30

' Если файла нет данный код выдает ошибку
Dim sTemp As String
Open sFile + "yura.txt" For Input As #1
If Not EOF(1) Then
Line Input #1, sTemp
End If
Close #1

Можно перехватить ошибку и написать, что файла нет.
Мне неудобно использовать этот способ, т.к. далее идет код.

Есть ли способ узнать существует ли файл?

**Ramzes** » 04.03.2005 (Пт) 18:42

Ставишь в начало процедуры

Код: Выделить всё: on error goto errhandler

И в конец

Код: Выделить всё: errhandler: if err=53 then msgbox "Файл не существует" exit sub

**vvs_adm** » 04.03.2005 (Пт) 18:51

Код: Выделить всё: if dir(sFileName)="" then msgbox("А файла то тю-тю")

**Ramzes** » 04.03.2005 (Пт) 18:56

ГЫ тоже вариант, а я просто увидел отловить ошибку и все...

**vvs_adm** » 04.03.2005 (Пт) 20:10

Ну так лучше обойтись без ошибок

**Юра П** » 04.03.2005 (Пт) 21:52

Ramzes, с обработчиком и я умею, но в моем случае это не удобно.
Потому что мне надо проводить определенные действия после обработки наличия файла в любом случае (еслть илл нет файла). И в варианте с обработчиком надо писать одинаковый 2 раза . Секешь? :wink:

vvs_adm, большое спасибо - это то что я спрашивал. В Сях это делается проще, сразу ф-я открытия возвращает неудачу - 0, в случае отсутствия файла.

**dimix** » 05.03.2005 (Сб) 0:23

Вопрос к бывалым. Какие минусы у:
if dir(sFileName)="" then msgbox("А файла то тю-тю")

Может минусов и вообще нет, просто немного смущает if dir(sFileName)=""

**A.A.Z.** » 05.03.2005 (Сб) 0:24

А чем, собсна смущает?

**dimix** » 05.03.2005 (Сб) 0:36

Ну... как сказать... Если бы выглядело так:
If ExistFile(FileName) = True
то это не вызвало бы у меня подозрений

**Костя** » 05.03.2005 (Сб) 7:10

Ну зачем же одинаковый писать два раза? А условный переход?

on error goto errhandler

код

continue:

код

exit sub
errhandler:
if err=53 then msgbox "Файл не существует"
goto continue

**alibek** » 05.03.2005 (Сб) 8:38

vvs_adm, правильнее писать If Len(Dir$(filename)) = 0 Then ...
Кроме того, если filename содержит символы ":" и некоторые другие, то будет вызвана ошибка.

**Andrey Fedorov** » 05.03.2005 (Сб) 11:32

alibek писал(а):vvs_adm, правильнее писать If Len(Dir$(filename)) = 0 Then ...
Кроме того, если filename содержит символы ":" и некоторые другие, то будет вызвана ошибка.

Точнее правильней так не писать вообще.

Элементарная ситуация - пользователю запрещено листинг файлов. Что мы тогда получим на Dir ???

Лучше уж пользовать такую функцию:

Код: Выделить всё: Private Function FileExists(sFile As String) As Boolean On Error Resume Next FileExists = ((GetAttr(sFile) And vbDirectory) = 0) End Function

**RayShade** » 05.03.2005 (Сб) 11:45

Если пользователю запрещен листинг файлов, то файл для него не существует. И по Dir мы получим, что файла нет.

**Andrey Fedorov** » 05.03.2005 (Сб) 11:49

RayShade писал(а):Если пользователю запрещен листинг файлов, то файл для него не существует. И по Dir мы получим, что файла нет.

Чего ради не существует?

Просто он не может прочитать содержимое каталога, но если он знает имя файла то может его использовать. Я этим давно пользуюсь - файлы видит только программа (она то знает где что лежит).

**RayShade** » 05.03.2005 (Сб) 12:02

Ага. Только если программа запущена под акаунтом пользователя, который не может читать сисок файлов, то и файлы по моему она не увидит... Ведь когда у человека нет пермиссии, то это распрстраняется и на процесы, которые он запускает.

**alibek** » 05.03.2005 (Сб) 12:20

RayShade, есть право чтение файла, а есть право на листинг файлов в директории.

**Andrey Fedorov** » 05.03.2005 (Сб) 12:36

RayShade писал(а):Ага. Только если программа запущена под акаунтом пользователя, который не может читать сисок файлов, то и файлы по моему она не увидит... Ведь когда у человека нет пермиссии, то это распрстраняется и на процесы, которые он запускает.

А программе не надо список файлов - она не делает Dir.
Она просто берет и открывает файл (имя файла берется из базы).

Человек тоже может открыть тот-же файл, но для этого ему нужно набрать ручками полный путь к нему ибо выбрать из списка (который не читается) он его не может.

**dimix** » 05.03.2005 (Сб) 20:14

Andrey Fedorov писал(а):On Error Resume Next

А что эта конструкция делает? Т.е. общий смысл понятен, но вот детали...
И чем отличается On Local Error Resume Next?

**GSerg** » 06.03.2005 (Вс) 8:24

В принципе, если подходить к вопросу строго, on error goto здесь правильнее. Ибо, теоретически, может возникнуть ситуация, когда система переключает поток выполнения на другую программу после того, как мы вызвали Dir, но до того, как мы пошли выполнять действия

И вот если та прога, на которую система переключилась, сотрёт файл, то возникнет ошибка отсутствия файла, хотя Dir был <>""

По второму вопросу: http://www.experts-exchange.com/Program ... 75558.html

**Sebas** » 06.03.2005 (Вс) 12:34

а через fileSystemObject не канает?

Dir вылетит если папка неправильно указана.

**tyomitch** » 06.03.2005 (Вс) 13:25

Sebas писал(а):Dir вылетит если папка неправильно указана.

Неправда - проверь.

Конференция VBStreets

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

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

Кто сейчас на конференции