| Вопрос: Поиск файла. Срочно!!! | Добавлено: 16.05.05 18:04 |
Автор вопроса:  Mag | ICQ: 289414238 |
|
Как узнать существует файл или нет? Помогите!!!
можно через FSO |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #1 | Добавлено: 16.05.05 18:08 |
|
If Dir$("File.ext"  ="" Then Msgbox "Таки нет этого файла"
|
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 17.05.05 00:13 |
| API - PathFileExists | ||
|
Номер ответа: 3 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #3 | Добавлено: 17.05.05 08:44 |
|
Declare Function PathFileExists Lib "shlwapi.dll" Alias
"PathFileExistsA" ( _ ByVal pszPath As Asciiz) As Long sne, боюсь с тобой спорить... но зачем подключать какуюто shlwapi.dll? |
||
|
Номер ответа: 4 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #4 | Добавлено: 17.05.05 08:54 |
|
ИМНО, через голые апи побыстрее...
PowerBasic 7: FUNCTION FileExist(BYVAL sfName AS STRING) AS LONG
LOCAL hRes AS DWORD LOCAL tWFD AS WIN32_FIND_DATA IF LEN(sfName) = 0 THEN EXIT FUNCTION IF ASC(sfName, -1) = 92 THEN sfName = LEFT$(sfName, LEN(sfName) - 1) END IF hRes = FindFirstFile(BYVAL STRPTR(sfName), tWFD) IF hRes <> %INVALID_HANDLE_VALUE THEN FUNCTION = %TRUE FindClose hRes END IF END FUNCTION |
||
|
Номер ответа: 5 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #5 | Добавлено: 17.05.05 09:17 |
|
shlwapi.dll - Internet Explorer 4.0
Вообще же, особой разницы нет. |
||
|
Номер ответа: 6 Автор ответа: Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #6 | Добавлено: 17.05.05 13:52 |
|
Public Type WIN32_FIND_DATA
dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14 End Type Public Declare Function FindFirstFile _ Lib "kernel32" Alias "FindFirstFileA" ( _ ByVal lpFileName As String, _ lpFindFileData As WIN32_FIND_DATA) As Long |
||
|
Номер ответа: 7 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #7 | Добавлено: 17.05.05 16:59 |
|
дык мож тогда VBA.Dir$ еси не юзать API
|
||
|
Номер ответа: 8 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #8 | Добавлено: 18.05.05 05:43 |
|
Barsik, по-моему API лучше чем те же встроенные в VB ф-ции:
API (тем более от kernel32.dll) разрабатывают и проверяют куча матерых программеров, а ф-ции VB только те, которые их реализовывали (+ небольшая команда тестеров... исключая невольных типа нас  )
|
||
|
Номер ответа: 9 Автор ответа: SurICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #9 | Добавлено: 18.05.05 11:34 |
| Тем более, что Dir() тайно вызывает ту же API... | ||
|
Номер ответа: 10 Автор ответа: Aндрей ICQ: 259020622 Вопросов: 30 Ответов: 71 |
Профиль | | #10 | Добавлено: 23.05.05 20:39 |
|
If Len(Dir("c:\2.txt") > 0 Then debug.print "exist!"
Так можно но, полюбому апи быстрей... |
||
Страница: 1 |