| Вопрос: Существование файла | Добавлено: 16.06.05 00:07 |
Автор вопроса:  bas | Web-сайт: www.klyaksa.net
|
| Как проверить (желательно средствами ВБ) существует ли "такой-то" файла? Т.е. есть ли функция типа: фун СущТакФайл(имя файла) как бул? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 16.06.05 03:51 |
|
len(dir(path)) или
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long |
||
|
Номер ответа: 2 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 16.06.05 13:25 |
| Ну, можно еще и FSO вспомнить... | ||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 16.06.05 13:53 |
ну и как ещё вариант, on error resume next, потом open потом Size = lof(1) ... Если Size = 0 тогда скорее всего файла нет, хотя если файл пустой, то скорее есть  а ваще лучше айпи той что сне дал.
|
||
|
Номер ответа: 4 Автор ответа: Dron ICQ: 331667224 Вопросов: 7 Ответов: 10 |
Профиль | | #4 | Добавлено: 10.08.05 04:41 |
<font color="FF0000"><b>Способ 1</b></font><br><br> Возвращает <b>1</b> файл существует) или <b>0</b> (файла нет)<br><br>
<font color="000080">Private Declare Function</font> PathFileExists <font color="000080">Lib</font> "shlwapi.dll" <font color="000080">Alias</font> "PathFileExistsA" (<font color="000080">ByVal</font> pszPath <font color="000080">As String</font>  <font color="000080">As Long</font><br><br>
<font color="000080">Private Sub</font> Command1_Click()<br> MsgBox PathFileExists("c:\autoexec.bat" <br>
<font color="000080">End Sub</font><br><br> <font color="FF0000"><b>Способ 2</b></font><br><br> Возвращает <b>True</b> файл существует)
или <b>False</b> файла нет)<br><br>
<font color="000080">Private Declare Function</font> PathFileExists <font color="000080">Lib</font> "shlwapi.dll" <font color="000080">Alias</font> "PathFileExistsA" (<font color="000080">ByVal</font> pszPath <font color="000080">As String</font> <font color="000080">As Long</font><br><br>
<font color="000080">Public Function</font> DoesFileExist(<font color="000080">ByVal</font> strPath <font color="000080">As String</font> <font color="000080">As Boolean</font><br>
DoesFileExist = PathFileExists(strPath)<br> <font color="000080">End Function</font><br><br> <font color="000080">Private Sub</font> Command1_Click()<br> MsgBox DoesFileExist("c:\autoexec.bat" <br>
<font color="000080">End Sub</font><br> |
||
Страница: 1 |