|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
12.10.2004, 11:40:45
|
|||
|---|---|---|---|
|
|||
Функция, возвращающая имя папки? |
|||
|
#18+
Подскажите пожалуйста есть ли функция, возвращающая имя папки. Пробую FileName = Dir("C:\PCGOP30\send\", vbDirectory) выдает "." Хотя в папке Send есть вложенные папки. Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
12.10.2004, 11:56:58
|
|||
|---|---|---|---|
|
|||
Функция, возвращающая имя папки? |
|||
|
#18+
Убери последний слэш: FileName = Dir("C:\PCGOP30\send", vbDirectory) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
12.10.2004, 12:01:12
|
|||
|---|---|---|---|
|
|||
Функция, возвращающая имя папки? |
|||
|
#18+
Rivkin DmitryУбери последний слэш: FileName = Dir("C:\PCGOP30\send", vbDirectory) В этом случае выдает "send", а мне нужно имя папки, нахадящейся внутри папки send ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
12.10.2004, 12:05:52
|
|||
|---|---|---|---|
Функция, возвращающая имя папки? |
|||
|
#18+
Yura_G Rivkin DmitryУбери последний слэш: FileName = Dir("C:\PCGOP30\send", vbDirectory) В этом случае выдает "send", а мне нужно имя папки, нахадящейся внутри папки send FileName = Dir("C:\PCGOP30\send\*", vbDirectory) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
12.10.2004, 12:17:22
|
|||
|---|---|---|---|
|
|||
Функция, возвращающая имя папки? |
|||
|
#18+
paparome Yura_G Rivkin DmitryУбери последний слэш: FileName = Dir("C:\PCGOP30\send", vbDirectory) В этом случае выдает "send", а мне нужно имя папки, нахадящейся внутри папки send FileName = Dir("C:\PCGOP30\send\*", vbDirectory) Выдаст точку - текущий каталог Следующий вызов Dir (без параметров) вернет .. - родительский каталог, В Help же есть пример Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
12.10.2004, 12:19:12
|
|||
|---|---|---|---|
|
|||
Функция, возвращающая имя папки? |
|||
|
#18+
автор' Возвращает список каталогов на диске C:. MyPath = "c:\" ' Указывает путь. MyName = Dir(MyPath, vbDirectory) ' Возвращает первый элемент. Do While MyName <> "" ' Начинает цикл. ' Игнорирует текущий каталог и каталог предыдущего уровня. If MyName <> "." And MyName <> ".." Then ' Использует поразрядное сравнение для проверки того, ' является ли MyName каталогом. If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName ' Выводит элемент только в том End If ' случае, если это каталог. End If MyName = Dir ' Возвращает следующий элемент. Loop ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&tablet=1&tid=1671171]: |
0ms |
get settings: |
5ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
43ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
23ms |
get tp. blocked users: |
1ms |
| others: | 196ms |
| total: | 289ms |
| 0 / 0 |
