ник: akkorn
я использую ф-цию проверки файлов или директорий.
'для FileUtils_IsFilePresent2()
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Function FileUtils_IsFilePresent2(ByVal strFileName As String) As Boolean
'пример вызова ф-ции определения наличия файла
'MsgBox FileUtils_IsFilePresent2("c:\fish.scr")
'Функция возвращает TRUE, если файл существует. В противном случае возвращает False
FileUtils_IsFilePresent2 = PathFileExists(strFileName)
End Function