|
|
|
РЕКУРСИЯ
|
|||
|---|---|---|---|
|
#18+
Помогите , не пойму почему не работает прога ... хочу посчитать общее кол-во папок на диске ... вызываю вначале функцию так ... Folder("C:\") сама функция ... Function Folder(Path As String) Name = Dir(Path, vbDirectory) Do While Name <> "" If Name <> "." And Name <> ".." Then If (GetAttr(Path & Name) And vbDirectory) = vbDirectory Then x = Path + Name + "\" i=i+1 asd (x) End If End If Name = Dir Loop End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.07.2003, 17:47 |
|
||
|
|
start [/forum/search_topic.php?author=slavasl&author_mode=last_posts&do_search=1]: |
0ms |
get settings: |
10ms |
get forum list: |
18ms |
get settings: |
8ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
55ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
20ms |
get tp. blocked users: |
1ms |
| others: | 757ms |
| total: | 899ms |
| 0 / 0 |
