Проверка файла на существование

[neic]

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

[Nikolka]

If Dir("File")="" Then FileNot=true

[kirrun]

PathFileExists

[|kerish|]

Согласен с kirrun если речь идёт о многократных проверках.
Если проверки не частые и однократные, то можно себе позволить и VB-обёртку Dir.

[neic]

kirrun, а подробнее?

[|kerish|]

'1. Возвращает 1(файл существует) или 0 (файла нет)

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
MsgBox PathFileExists("c:\autoexec.bat")

'2. Возвращает True(файл существует) или False(файла нет)

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Function DoesFileExist(ByVal strPath As String) As Boolean
DoesFileExist = PathFileExists(strPath)
End Function
MsgBox DoesFileExist("c:\autoexec.bat")

[neic]

Пасибо всем! Тему можно зкрыть или продолжить обсуждение =)

[kirrun]

|kerish|

Второе явно лишнее.. Зачем громоздить если и так все понятно =)