nasedkin, что именно Вам не нравится в коде?
Мне вот не нравится, что Вы не используете тэг
[code] для оформления кода на конференции, что не используете отступы в коде (или это следствие неиспользования тэга).
Не нравится, что никак не проверяется существование файла «E:\REGL\SEND\telo1.txt», существование пути «E:\REGL\SEND» перед попыткой их использования. Вместо использования массива и «ReDim Preserve» лучше использовать коллекцию (словарь).
Код:
Код:
lft=LBound(Mas)
rgt=UBound(Mas)
For i=lft To rgt
oMyMail.AddAttachment Mas(i)
next
чересчур излишен. Есть вариант куда проще:
Код:
For Each elem In Mas
oMyMail.AddAttachment elem
Next
Последнее:
Код:
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "E:\REGL\SEND\"
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFolderCollection = oFolder.SubFolders
set oFileCollection = oFolder.Files
for each oFile in oFileCollection
oFile.Delete(True)
Next
For each oDelFolder in oFolderCollection
oDelFolder.Delete(True)
Next
также можно сократить до:
Код:
oFSO.GetFolder(sDirectoryPath)
For each oFile in oFolder.Files
oFile.Delete(True)
Next
For each oDelFolder in oFolder.SubFolders
oDelFolder.Delete(True)
Next
Ну, и дважды создаётся объект «Scripting.FileSystemObject» — не есть хорошо.
