|
|
|
Как организовать цикл по папке?
|
|||
|---|---|---|---|
|
#18+
Задача простая: пробежаться по всем Excel-файлам в папке и вывести в табличку имена. Про то, как засунуть данные в табличку я знаю, а вот как цикл по папке организовать - никак не врублюсь... С файловой системой раньше никогда не имел дела. Спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.09.2004, 09:47:52 |
|
||
|
Как организовать цикл по папке?
|
|||
|---|---|---|---|
|
#18+
Самое промтое посмотреть в Help'е функцию Dir ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.09.2004, 09:52:02 |
|
||
|
Как организовать цикл по папке?
|
|||
|---|---|---|---|
|
#18+
Спасибо, видимо это мне поможет автор' Returns filename with specified extension. If more than one *.ini ' file exists, the first file found is returned. MyFile = Dir("C:\WINDOWS\*.INI") ' Call Dir again without arguments to return the next *.INI file in the ' same directory. MyFile = Dir ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.09.2004, 09:57:53 |
|
||
|
Как организовать цикл по папке?
|
|||
|---|---|---|---|
|
#18+
Using the FileSearch Object Use the FileSearch property to return the FileSearch object. The following example searches for files and displays the number of files found and the name of each file. With Application.FileSearch If .Execute() > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "There were no files found." End If End With ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.09.2004, 10:00:26 |
|
||
|
|
start [/forum/topic.php?fid=45&gotonew=1&tid=1672067]: |
0ms |
get settings: |
9ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
50ms |
get topic data: |
8ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
27ms |
get tp. blocked users: |
1ms |
| others: | 209ms |
| total: | 332ms |
| 0 / 0 |
