Как определить: существует ли определенный файл?

[vbStr]

Как определить: существует ли по определенному пути файл с некоторым именем? Можно ли решить эту проблему, не прибегая к обработке ошибки? Спасибо.



vbskb_file vbskb_exists vbskb_fileexists

[tyomitch]

Код: Выделить всё

If Len(Dir("твой файл")) Then 'файл существует.

Это работает, но это неправильно.

[Leo!!!]

Поищи в поиске FSO

[Ruslan Demidow]

Код: Выделить всё

If Len(Dir("твой файл")) Then 'файл существует.

Это работает, но это неправильно.

Почему неправильно?

[GSerg]

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

[Ruslan Demidow]

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

Тады как делать?

[GSerg]

Тады ловить ошибку, это единственно правильный способ.

[Ruslan Demidow]

Тады ловить ошибку, это единственно правильный способ.

Но ловить ошибку уже после Len(dir...)?

[GSerg]

Нет, сразу открывать и ловить ошибку...

[Gfif21]

Вот в книжице нашел примерчик:

Код: Выделить всё

Public Function bFileExists(sFile As String) As Boolean
    If Dir$(sFile) <> "" Then bFileExists = True Else _
    bFileExists = False
End Function

[GSerg]

Ты написанное выше читал?..

[Gfif21]

Ваапще-то нет

[tyomitch]

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

Вообще-то я об этом даже не подумал
Мой код (тот же самый, что в книжице Gfif21) неправильный потому, что если в Dir передать мусор, то он вернёт ошибку 52 "Bad file name or number", и её всё равно придётся отлавливать.
Но ты указал гораздо более серьёзный недостаток этого кода.

[extHack]

if dir$("c:\windows\system32\ntoskrnl.exe") <> "" then
'Файл существует
else
'Не существует
end if

[vbStr]

Всем спасибо! Я так понял: без отлавливания ошибки не обойтись!

[GSerg]

extHack, ты тоже, да?

[Ruslan Demidow]

extHack, ты тоже, да?

GSerg, покажи, плиз, пример реализации "правильного" кода. Что-то я не допру: как можно через дир проверить наличие файла и одновременно отловить ошибку.
Сделали дир - файл есть. Куда теперь? Если дальше - ты пишешь: не правильно. Если проверять ошибку - то какую? Которую вернёт дир? Когда? По второму разу дир делать? Я запутался.

[VVitafresh]

Можно так проверять:

Код: Выделить всё


Public Function bFileExists(sFile As String) As Boolean
    'Проверка наличия файла.
    'Подключить References -> Microsoft Scripting Runtime
    Dim f As New Scripting.FileSystemObject
    If f.FileExists(sFile) = True Then
        bFileExists = True
    Else
        bFileExists = False
    End If
End Function


To GSerg:
Если делать эту проверку сразу перед использованием файла, то вероятность того, что файл удалят раньше, чем он обработается в ветке будет очень маленькой. Хотя, конечно, стандартный ErrorHandler не помешает никогда.

[FaKk2]

VVitafresh

Ты делаешь ставку на удачу. А GSerg делает наверняка.

[GSerg]

Сделали дир - файл есть. Куда теперь? Если дальше - ты пишешь: не правильно. Если проверять ошибку - то какую? Которую вернёт дир? Когда? По второму разу дир делать? Я запутался.

Нет.
Если ты проверяешь наличие файла, значит, ты хочешь с ним что-то сделать. Вот сразу делай, без проверки наличия, и лови ошибку.

[Ruslan Demidow]

Сделали дир - файл есть. Куда теперь? Если дальше - ты пишешь: не правильно. Если проверять ошибку - то какую? Которую вернёт дир? Когда? По второму разу дир делать? Я запутался.

Нет.
Если ты проверяешь наличие файла, значит, ты хочешь с ним что-то сделать. Вот сразу делай, без проверки наличия, и лови ошибку.

А если мне в моей программе при загрузке нужно проверить наличие файла указанного в настройках, а использовать его потом (в зависимости от наличия файла). Всё равно писать обработчик?

[Viper]

Наличие файла надо проверять каждый раз при его использовании. Т.е. если надо проверить наличие указанного при загрузке файла, проверяй. Когда позже начинаешь с ним работать - проверяй... и так далее.

а самая надежная проверка - отлов ошибки.

Ruslan Demidow, Привет земляку!

[Ruslan Demidow]

Наличие файла надо проверять каждый раз при его использовании. Т.е. если надо проверить наличие указанного при загрузке файла, проверяй. Когда позже начинаешь с ним работать - проверяй... и так далее.

В принципе я так и делаю. У меня Public функция которая на входе получает имя файла и на выходе возвращает True/False в зависимости от наличия файла. Перед использованием вызываю её, и после этого сразу же идёт проверка результата этой функции. А там уже по обстоятельствам.

а самая надежная проверка - отлов ошибки.

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

Ruslan Demidow, Привет земляку!

Привет!

[Viper]

если просто проверить существование, то пожалуй дейтвительно лучше через Dir, и вынести это в отдельную функцию.

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

З.Ы. когда то написал на C чудную функцию определения существаования файла и пользовался ей в VB. где то она и шас лежит. надо поискать

[A.A.Z.]

Сделали дир - файл есть. Куда теперь? Если дальше - ты пишешь: не правильно. Если проверять ошибку - то какую? Которую вернёт дир? Когда? По второму разу дир делать? Я запутался.

Нет.
Если ты проверяешь наличие файла, значит, ты хочешь с ним что-то сделать. Вот сразу делай, без проверки наличия, и лови ошибку.

А если мне в моей программе при загрузке нужно проверить наличие файла указанного в настройках, а использовать его потом (в зависимости от наличия файла). Всё равно писать обработчик?

Может, не в тему, но приведу пример из жизни: есть такая штука - MTA (GTA по инету). Так вот, прога перед запуском GTA проверяет все файлы с настройками на валидность (чтобы никто не менял настройки, скажем, своих машин), а сама GTA сначала выдает заставку. Так вот, если во время заставки переключиться Alt+Tab'ом и все, что нужно, поменять, MTA ничего не скажет.
Вывод - все-таки лучше ловить ошибку, чем проверять наличие задолго до использования

[miwutka]

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

если просто делать отлож ошибки при открытии файла?

[tyomitch]

если просто делать отлож ошибки при открытии файла?

Так и надо.

[alibek]

Так и надо.

По разному бывает.
Например, программа работает с БД.
Если БД не существует, ее надо создать.
Если ты будешь открывать БД и отлавливать ошибку, то не всегда сможешь понять, из-за чего ошибка -- из-за отсутствующего файла БД или из-за поврежденной структуры.

[RayShade]

БД вряд ли будут открывать open file as number.

Ее скорее всего откроют провайдером. А он, вернет нужную ошибку - структура там кривая или еще что.

[alibek]

Провайдеры тоже бывают кривые
И фиг поймешь, что конкретно он подразумевает под возвращаемой ошибкой.