|
|
|
Проверка существования папки.
|
|||
|---|---|---|---|
|
#18+
Добрый вечер! If Trim$(Dir(Path)) <> "" Then с помощью данной процедуры мы проверяем существует файл в указанной папке или нет. Но как проверить существует ли сама папка? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.02.2007, 22:17 |
|
||
|
Проверка существования папки.
|
|||
|---|---|---|---|
|
#18+
Dir(Path, vbDirectory) поведение зависит от того, заканчивается путь символом "\" (вернет точку) или нет (вернет имя каталога). Проверьте... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.02.2007, 11:40 |
|
||
|
Проверка существования папки.
|
|||
|---|---|---|---|
|
#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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.02.2007, 13:17 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=34304667&tid=2164573]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
145ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
51ms |
get tp. blocked users: |
1ms |
| others: | 236ms |
| total: | 476ms |
| 0 / 0 |
