| Вопрос: Существует ли дириктория | Добавлено: 01.07.05 13:57 |
Автор вопроса:  Diz | Web-сайт: www.TS-Group.fatal.ru
|
|
Вроде искал на форруме не нашёл, кто нибудь знает как это проверить???
вот есть ссылка http://www.vbnet.ru/faq/showtopic.asp?id=11 но у меня этот пример как-то некорректно работает :( |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 01.07.05 15:21 |
|
if len(dir(dirPath))...
или Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long if (PathFileExists(dirPath))... |
||
|
Номер ответа: 2 Автор ответа:  SDL ICQ: 272678283 Вопросов: 27 Ответов: 16 |
Web-сайт: Профиль | | #2 | Добавлено: 01.07.05 16:17 |
|
Function FolderExist (ByVal FolderName as String) as Boolean FolderExist = True ChDir FolderName If Err <> 0 Then FolderExist = False End Function |
||
|
Номер ответа: 3 Автор ответа: nicolaiICQ: 197368786 Вопросов: 6 Ответов: 91 |
Профиль | | #3 | Добавлено: 01.07.05 16:26 |
| самое удобное len(dir(x)) | ||
|
Номер ответа: 4 Автор ответа: Boss IT Вопросов: 0 Ответов: 3 |
Профиль | | #4 | Добавлено: 01.07.05 22:17 |
|
' В модуль
Public Function isFile(filename As String) As Boolean If Len(Dir(filename)) > 0 Then isFile = True Else isFile = False End If End Function ' в форме If isFile(App.Path + "\config\config.ini"  then
.... end if |
||
Страница: 1 |