Отправляет email-рассылки с помощью сервиса Sendsay

Здравствуйте всем!
У меня такой вопрос. Можно-ли в VBA (Excel или Word не важно) написать макрос,
который бы забил в символный массив список всех файлов, существующих в определённой
папке? Количество файлов и их имена заранее не известны.
Спасибо всем за ответы на мой предыдущий вопрос относительно макросов в Worde.

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

-*Информационный канал 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

Ответить   "Игорь Агеев" Thu, 12 Feb 2004 00:47:49 +0300 (#78249)

 

Ответы:

Вот пример из 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

Ответить   Thu, 12 Feb 2004 14:42:04 +0300 (#78629)

 

Программу для составления каталога из гиперссылок на файлы в папке можно
загрузить с адресов:
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

Ответить   "Александр Смирнов" Fri, 20 Feb 2004 10:07:50 +0300 (#85285)

 

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

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

Ответить   Thu, 12 Feb 2004 17:58:37 +0200 (#79110)