Ошибка при архивировании файлов

[eda]

Есть вот такой фрагмент кода:

Dim oApp As Object
Set oApp = CreateObject("Shell.Application")
Dim copiedFiles As New Dictionary

k = -1
With aSheet.Hyperlinks
    'On Error GoTo Cleanup
    PrepareOK = True ' <-- подготовка к архивированию окончена
    ArchOK = False
    For i = 1 To .count
        If .item(i).Range.Column = COL_FILE Then
            tmpRow = .item(i).Range.row
            For j = 1 To UBound(FileList)
                If tmpRow = FileList(j) Then
                    If copiedFiles.Exists(.item(i).name) Then
                        MsgBox "Попытка повторно записать в архив файл с именем " & .item(i).name & vbCrLf & "Внимание! В архиве нет структуры папок, поэтому архивируйте файлы с совпадающими именами отдельно!"
                        GoTo Cleanup
                    Else
                        ' Добавим в коллекцию.
                        copiedFiles.Add .item(i).name, i
                        ' Вычислим путь к этому файлу
                        tmpStr1 = IIf((Left(.item(i).Address, 2) = "\\") Or (Mid(.item(i).Address, 2, 2) = ":\"), .item(i).Address, QADir & .item(i).Address)
                        If oFS.FileExists(tmpStr1) Then
                            k = k + 1                            
                            ' 1. Copy the file to the compressed folder
                            tmpStr1 = Replace(tmpStr1, "/", "\")
                            oApp.Namespace(aN & "\").CopyHere CStr(tmpStr1)
                        Else
                            MsgBox "Файл с полным именем" & vbCrLf & vbCrLf & _
                                   tmpStr1 & vbCrLf & vbCrLf & _
                                   "не существует.", vbExclamation, "Файл не найден"
                        End If
                    End If
                    Exit For
                End If
            Next j
        End If
    Next i

Возникает ошибка: Method 'NameSpace' of object 'IShellDispatch4' failed. Какие могут быть причины?

[EducatedFool]

Какие могут быть причины?

В строку oApp.Namespace(aN & "\").CopyHere CStr(tmpStr1)
передаются неверные параметры - aN или tmpStr1

Поставьте перед этой строкой вот что:

MsgBox CStr(tmpStr1) & vbNewLine & vbNewLine & aN & "\"

Теперь Вы сразу увидите, в чём ошибка.
(обратите внимание на наличие лишних\пропущенных слешей и запрещённых символов в именах файлов\папок)

[eda]

C именами все в порядке, проверила.