| Вопрос: Существование файла | Добавлено: 16.06.05 00:07 |
Автор вопроса:  bas | Web-сайт: www.klyaksa.net
|
| Как проверить (желательно средствами ВБ) существует ли "такой-то" файла? Т.е. есть ли функция типа: фун СущТакФайл(имя файла) как бул? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #1 | Добавлено: 16.06.05 00:56 |
Строка=DIR$("Какая-то файла"
Если существует вернёт имя, в противном случае пустую строку. Детишки поймут я надеюсь
|
||
|
Номер ответа: 2 Автор ответа: Dron ICQ: 331667224 Вопросов: 7 Ответов: 10 |
Профиль | | #2 | Добавлено: 10.08.05 04:34 |
|
Способ 1
Возвращает 1(файл существует) или 0 (файла нет) Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long Private Sub Command1_Click() MsgBox PathFileExists("c:\autoexec.bat"
End Sub Способ 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 Private Sub Command1_Click() MsgBox DoesFileExist("c:\autoexec.bat"
End Sub |
||
Страница: 1 |