архивирование файлов через shell

[eda]

Подскажите, пожалуйста, почему не работает следующий код:
Dim oFolder
Dim foldername
Dim oShell

Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.Namespace(oD & WIN_PATH_DLM)
If Not oFolder Is Nothing Then
'Create empty Zip File
NewZip (aN)
foldername = oFolder.Self.Path
If Right(foldername, 1) <> "\" Then
foldername = foldername & "\"
End If

'Copy the files to the compressed folder
oShell.Namespace(aN).CopyHere oShell.Namespacefoldername).item()
End If

[EducatedFool]

Зачем что-то изобретать?

Воспользовавшись поиском по разделу с ключевым словом CopyHere,
находим пример работоспособного кода:

http://www.programmersforum.ru/showp...90&postcount=2

[eda]

я просто хочу знать, в чем ошибка...

[EducatedFool]

А что, так сложно сравнить свой код с кодом по моей ссылке?

Вы, кстати, не заметили, что VBA выделяет красным цветом строку
oShell.Namespace(aN).CopyHere oShell.Namespacefoldername).item()

Достаточно подумать пару секунд, чтобы понять, что в коде нехватает одной скобки:
oShell.Namespace(aN).CopyHere oShell.Namespace(foldername).Item()

Ну и, конечно, нет функции NewZip

Sub NewZip(sPath)
    If Len(Dir(sPath)) > 0 Then Kill sPath
    Open sPath For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
End Sub

Вы бы хоть написали, на какой строке кода вылетает ошибка...

[eda]

По поводу скобки - я описалась. Функция ZipName есть, такая же. Но проблема остается

[EducatedFool]

Функция ZipName есть, такая же

Надо приводить код полностью.
Там где-то ещё определены переменная oD и константа WIN_PATH_DLM

Если код большой, прикрепите файл с этим кодом.
За одним напишите, чего вы пытаетесь добиться при помощи этого кода.

И чем Вас не устраивает приведённая мной версия этого же кода?
(который совпадает с Вашим кодом на 90%)

Повторюсь: на какой строке кода вылетает ошибка?

[eda]

Сообщение от EducatedFool

Надо приводить код полностью.
Там где-то ещё определены переменная oD и константа WIN_PATH_DLM
oD & WIN_PATH_DLM ="C:\DOCUME~1\LOCALS~1\Temp\2009.03 .21-12-49-07\"(это путь к папке, файлы из которой нужно заархивировать)

И чем Вас не устраивает приведённая мной версия этого же кода?
(который совпадает с Вашим кодом на 90%)
мне нужно исправить уже написанный код. Вообще, код, который я написала работает, если сделать замену:
Set oFolder = oApp.BrowseForFolder(0, "Select folder to Zip", 512).
Поэтому мне и важно понять, почему без выбора папки вручную возникает ошибка.

Повторюсь: на какой строке кода вылетает ошибка?

oShell.foldername(aN).CopyHere oShell.Namespace(foldername).Items

[eda]

Для тех, кто столкнется с такой же проблемой: код будет работать, если написать так:
oShell.Namespace("" & aN).CopyHere oShell.Namespace("" & foldername).Items

[eda]

Скажите, пожалуйста, как решить следующую задачу:
Есть список файлов с одним именем. Нужно заархивировать их вместе со структурой папок, в которых они хранятся, т.е. в архиве восоздать структуру папок для каждого файла, при этом в архив не должны попадать файлы, которых нет в списке, но есть в папках.