Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как организовать цикл по папке? / 4 сообщений из 4, страница 1 из 1
01.09.2004, 09:47:52
    #32674638
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как организовать цикл по папке?
Задача простая: пробежаться по всем Excel-файлам в папке и вывести в табличку имена.
Про то, как засунуть данные в табличку я знаю, а вот как цикл по папке организовать - никак не врублюсь... С файловой системой раньше никогда не имел дела.

Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 09:52:02
    #32674645
Shubnikov
Shubnikov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как организовать цикл по папке?
Самое промтое посмотреть в Help'е функцию Dir
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 09:57:53
    #32674657
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как организовать цикл по папке?
Спасибо, видимо это мне поможет

автор' 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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 10:00:26
    #32674661
RVI
RVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как организовать цикл по папке?
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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как организовать цикл по папке? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 899ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1672067]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 638ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 203ms
total:  899ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]