Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
03.02.2007, 22:17
|
|||
|---|---|---|---|
Проверка существования папки. |
|||
|
#18+
Добрый вечер! If Trim$(Dir(Path)) <> "" Then с помощью данной процедуры мы проверяем существует файл в указанной папке или нет. Но как проверить существует ли сама папка? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.02.2007, 11:40
|
|||
|---|---|---|---|
|
|||
Проверка существования папки. |
|||
|
#18+
Dir(Path, vbDirectory) поведение зависит от того, заканчивается путь символом "\" (вернет точку) или нет (вернет имя каталога). Проверьте... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.02.2007, 13:17
|
|||
|---|---|---|---|
Проверка существования папки. |
|||
|
#18+
Function ReportFolderStatus(fldr) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FolderExists(fldr)) Then msg = fldr & " exists." Else msg = fldr & " doesn't exist." End If ReportFolderStatus = msg End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2164573]: |
0ms |
get settings: |
9ms |
get forum list: |
21ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
96ms |
get topic data: |
14ms |
get forum data: |
3ms |
get page messages: |
44ms |
get tp. blocked users: |
2ms |
| others: | 241ms |
| total: | 438ms |
| 0 / 0 |
