Существование файла. И другие вопросы бытия и сознания

[Sergey_next]

Как проверить в VB6, существует файл или нет?

[awl100Alex]

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

Private Sub Form_Load()
If Dir("c:\File.f") = "" Then MsgBox "Файла нет!"
End Sub

[MIT]

http://www.xtremevbtalk.com/showthread.php?t=292141
http://www.devx.com/vb2themax/Tip/18942

А вообще - гугль рулит неимоверно

[Sergey_next]

Спасибо, все работает.

[RayShade]

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

    Private Sub Form_Load()
    If Len(Dir("c:\File.f")) = 0 Then MsgBox "Файла нет!"
    End Sub


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

[Zenitchik]

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

If CBool(Len(Dir("c:\File.f"))) Then MsgBox "Файл есть!"

[RayShade]

А вот это уже излишнее преобразование насколько я помню

[karlex]

Как вам нравится это:

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

MsgBox Dir("")

Надеюсь намек поймете.

[Zenitchik]

А насколько я помню, оно все же эффективнее, чем операция сравнения.

[CodeName33]

Только ещё нужно добавить к Dir второй параметр указывающий, что она перечисляет. А то в виде

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

Dir("c:\file.txt")

скрытый файл существовать не будет.

[Zenitchik]

А что мешает соотв. аттрибутов подрисовать?

[alibek]

Zenitchik, а ты сообщение CodeName33 полностью прочел?

[|kerish|]

Я бы предпочел использовать API-шную функцию FilePathExists.

Если в функции Dir окажется некорректная переменная, ну вроде ":\", то будет вылетать с ошибкой, используя FilePathExists можно избежать дополнительных проверок.