|
|
|
Функция, возвращающая имя папки?
|
|||
|---|---|---|---|
|
#18+
Подскажите пожалуйста есть ли функция, возвращающая имя папки. Пробую FileName = Dir("C:\PCGOP30\send\", vbDirectory) выдает "." Хотя в папке Send есть вложенные папки. Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.10.2004, 11:40:45 |
|
||
|
Функция, возвращающая имя папки?
|
|||
|---|---|---|---|
|
#18+
Убери последний слэш: FileName = Dir("C:\PCGOP30\send", vbDirectory) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.10.2004, 11:56:58 |
|
||
|
Функция, возвращающая имя папки?
|
|||
|---|---|---|---|
|
#18+
Rivkin DmitryУбери последний слэш: FileName = Dir("C:\PCGOP30\send", vbDirectory) В этом случае выдает "send", а мне нужно имя папки, нахадящейся внутри папки send ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.10.2004, 12:01:12 |
|
||
|
Функция, возвращающая имя папки?
|
|||
|---|---|---|---|
|
#18+
Yura_G Rivkin DmitryУбери последний слэш: FileName = Dir("C:\PCGOP30\send", vbDirectory) В этом случае выдает "send", а мне нужно имя папки, нахадящейся внутри папки send FileName = Dir("C:\PCGOP30\send\*", vbDirectory) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.10.2004, 12:05:52 |
|
||
|
Функция, возвращающая имя папки?
|
|||
|---|---|---|---|
|
#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:17:22 |
|
||
|
Функция, возвращающая имя папки?
|
|||
|---|---|---|---|
|
#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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.10.2004, 12:19:12 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32733668&tid=1671171]: |
0ms |
get settings: |
7ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
42ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
31ms |
get tp. blocked users: |
1ms |
| others: | 213ms |
| total: | 324ms |
| 0 / 0 |
