[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Существует ли файл? - Visual Basic (Существует ли файл? - Visual Basic)
Существует ли файл? - Visual Basic
ilimДата: Вторник, 15.11.2011, 23:08 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Существует ли файл? - Visual Basic
===================================================
'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")


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Существует ли файл? - Visual Basic (Существует ли файл? - Visual Basic)
Страница 1 из 11
Поиск: