Нужно ли разархивировать папку, чтобы макрос мог получить доступ к своим файлам?

Question

Нужно ли разархивировать папку, чтобы макрос мог получить доступ к своим файлам?Я пытаюсь переместить файлы из заархивированного файла в соответствующую папку и хотел бы узнать, нужно ли разархивировать папку, чтобы объект файловой системы скопировал ее.Спасибо

Answer 1

Sub MoveFiles()
    Dim FSO As Object
    Dim SourceFileName As String, DestinFileName As String

    Set FSO = CreateObject("Scripting.Filesystemobject")

    SourceFileName = Sheets("NIS File Allocation").Cells(2, 2).Value
    DestinFileName = Sheets("NIS File Allocation").Cells(2, 7).Value
    MsgBox FSO.FileExists(SourceFileName)


    Call FSO.CopyFile(SourceFileName, DestinFileName, False)

    MsgBox (SourceFileName + " Copied to " + DestinFileName)

End Sub

При запуске этого кода SourceFileName должно находиться в разархивированной папке, чтобы скопировать его в целевой файл.В противном случае возникнет ошибка «Путь не найден».Проверено с .FileExists