3
Сентябрь
2008
Проверка существования файла
Еще один вариант проверки, существует ли файл.
Думаю по ходу решения различных вопросов, я и Вы будете находить все новые и новые варианты решения данного вопроса, всегда буду рад увидеть Ваш код в коментариях. Посмотрим и обсудим.
Option Explicit
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
Private Sub Form_Load()
MsgBox DoesFileExist("С:\autoexec.bat")
End
End Sub