НЕ в тему, но очень нужно

Программирование на Visual Basic for Applications
lina
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 11.06.2004 (Пт) 13:10

НЕ в тему, но очень нужно

Сообщение lina » 07.07.2005 (Чт) 15:20

Имеется папка и в ней файлы. Нужно в ВОРДОВОМ документе получить список файлов из этой папки. (только одни имена) Можно ли как-то по быстрому это сделать. Очень нужно Файлов в папке бывает до 400 штук руками молотить не хочется

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 07.07.2005 (Чт) 15:27

Поищи!
недавно спрашивали, правда вывод был в Ексель.
Там разговор шел про рекурсию, FSO
:roll:
Водки я вам не обещаю, но погуляем хорошо.
И. Сусанин.

Аватара (с) Тёмыч

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 07.07.2005 (Чт) 15:29

Код: Выделить всё
dim s as string

with thisdocument.range
  s=dir("c:\*.*")
  do while len(s)
    .insertafter s
    .insertparagraphafter
    s=dir
  loop
end with
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

lina
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 11.06.2004 (Пт) 13:10

Сообщение lina » 07.07.2005 (Чт) 15:34

спасибо, конечно, на добром слове. Я ведь сказала, что не в тему. Можно ли это как-нибудь без VB сделать

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 07.07.2005 (Чт) 15:38

Без VB?

Запустить Command Prompt, выполнить в нем команды "cd <folder>" и "dir /b", результаты скопировать в буфер (мышкой), вставить в Word.
Lasciate ogni speranza, voi ch'entrate.

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 07.07.2005 (Чт) 15:44

Нажимаешь Win+R
пишеш cmd и Enter
В появившемся окне пишешь:
cd "путь к папке"
Enter

когда перейдешь пишешь:
dir > c:\1.txt
Enter
А дальше из ворда открываешь файл 1.txt из корня диска с и переносишь его содержимое куда надо
Водки я вам не обещаю, но погуляем хорошо.
И. Сусанин.

Аватара (с) Тёмыч


Вернуться в VBA

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

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 88

    TopList