Как прочитать файл ?

[avgustin]

Вопрос!

Как прочитать файл и записать название файла в ворде.
Например:

Название файла: 012345.123

Спасибо

[tyomitch]

Ничего не понятно. Что значит "прочитать файл и записать название"?

[RayShade]

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



UPD:

Ладно, если шутку никто не оценил, то:

Код: Выделить всё

dim fso as object
dim fld as object
dim f as object
set fso=createobject("scripting.filesystemobject")
set fld=fso.getfolder("c:\файло_которое_я_хочу_вставить_в_word")
for each f in fld.files
activedocument.content.insertafter "Название файла: " & f.name
next f