Вот пример из VBA:

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:")
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s

Ясно, что и массив создать как два пальца ... не скажу что :))
С уважением,
Борис Сурин, surin_***@m*****.ru

макрос,

Написать модератору: crimeanho***@m*****.ru
Архив: http://subscribe.ru/archive/comp.soft.others.word
Подписаться:
mailto:comp.soft.others.word-sub@subscribe.ru
Подписчиков: 1352; Номер выпуска: 55

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.others.word-list@subscribe.ru
Отписаться: mailto:comp.soft.others.word--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Программу для составления каталога из гиперссылок на файлы в папке можно
загрузить с адресов:
http://antorlov.chat.ru или http://www.newtech.ru/~orlov .
С уважением, Александр.
Написать модератору: crimeanho***@m*****.ru
Архив: http://subscribe.ru/archive/comp.soft.others.word
Подписаться:
mailto:comp.soft.others.word-sub@subscribe.ru
Подписчиков: 1298; Номер выпуска: 64

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.others.word-list@subscribe.ru
Отписаться: mailto:comp.soft.others.word--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Здравствуйте, Игорь!

11.02.2004 Вы писали по поводу
"[Office] Список файлов?":

Думаю сможешь разобраться/дополнить/подрепетировать.
Знатоков прошу строго не судить - писал еще лет 8 назад на
соответствующем уровне.

Dim fs As FileSearch
Dim word As Object
Dim i As Integer
Dim b As Integer

Set fs = Application.FileSearch
With fs
.LookIn = "c:\vr"
.FileName = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
b = ((.FoundFiles.Count - .FoundFiles.Count) + 3)

For i = 1 To b
' MsgBox .FoundFiles(i)
On Error GoTo 100
Kill .FoundFiles(i)
100 Next i
Else
'MsgBox "Ни одного файла, отвечающего заданному критерию на найдено..."
End If
End With
С ув. Андрей
adm***@s*****.com
http://studiodelphin.com
Сейчас слушаю: Boney M - Rasputin
Написать модератору: crimeanho***@m*****.ru
Архив: http://subscribe.ru/archive/comp.soft.others.word
Подписаться:
mailto:comp.soft.others.word-sub@subscribe.ru
Подписчиков: 1339; Номер выпуска: 58

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.others.word-list@subscribe.ru
Отписаться: mailto:comp.soft.others.word--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru