Конференция VBStreets

**Володя И.** » 27.10.2003 (Пн) 11:23

Ребята, подскажите, как устроить цикл по всем файлам в одной директории?
(файлы с разными именами и переименовывать их нельзя). :?:

**Vitaly1** » 27.10.2003 (Пн) 12:26

Name = dir("Путь и маска")

while name <>""
msgbox name

Name = dir
wend

**Володя И.** » 27.10.2003 (Пн) 13:17

Спасибо, только не очень понял. Видимо, я плохо объяснил. В директории куча файлов. Программа должна каждый из них последовательно открывать, обрабатывать и закрывать. Вот вопрос - как организовать этот цикл. For each? или как-то иначе?

**RayShade** » 27.10.2003 (Пн) 13:58

Цикл уже организован

While... Wend

**Vitaly1** » 27.10.2003 (Пн) 14:09

Володя писал(а):Спасибо, только не очень понял. Видимо, я плохо объяснил. В директории куча файлов. Программа должна каждый из них последовательно открывать, обрабатывать и закрывать. Вот вопрос - как организовать этот цикл. For each? или как-то иначе?

Во первых, как было уже сказано RayShade, цикл уже организован по именам файла, а дальше их и используй.
Если это тяжко, то напиши что за файлы тебе нужно открыть, какого типа, в каком приложении.

**Володя И.** » 27.10.2003 (Пн) 14:10

А зачем msgbox и что такое "маска"?

**Vitaly1** » 27.10.2003 (Пн) 14:14

Я конечно написал не весь пример, а только заготовку, msgbox просто выводит на экран имя очередного файла.
Маска, это то, что используется вместо имени:
*.* - все файлы с любым именем и любым асширением
*.xls - все файлы Excel
*.doc - файлы Word

Конференция VBStreets

Цикл для всех файлов в директории

Цикл для всех файлов в директории

Кто сейчас на конференции