powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как поймать Nй файл?
4 сообщений из 4, страница 1 из 1
как поймать Nй файл?
    #35953585
D-Power
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть папка с файлами excel

на рабочем листе нужно сформировать список всех файлов находящихся в данной папке.

Проблема в том что отображаются все имена файлов из соответствующей папки, кроме одного файла. Использован код примерно такого содержания



aBook=dir(myDir,vbNormal)

do while aBook <>""
abook=dir
on error goto exit
loop

в итоге получается список состоящий из n-1 файла

поскжите что сделано не так, как написать код, чтобы получить имена всех файлов

спасибо.
...
Рейтинг: 0 / 0
как поймать Nй файл?
    #35953595
D-Power
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
причем если использовать пред Loop msgbox abook то сообщение будет пустым, получается что Dir() видит файл, но не возвращает его имени :(
...
Рейтинг: 0 / 0
как поймать Nй файл?
    #35953629
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Где получается список? В каком месте ты имя файла запоминаешь?
...
Рейтинг: 0 / 0
как поймать Nй файл?
    #35953637
D-Power
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все, разобрался..

не договорил я, у меня так если подробней:

aBook=dir(myDir,vbNormal)

do while aBook <>""
abook=dir
...
операторы сохраняющие на листе имена файлов,
...
loop


abook=dir нужно ставить непосредственно перед Loop`ом и только так!!! %)

дело было вечером... извините за эфир :D
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как поймать Nй файл?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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