vba разархивирование файла.vba

vba-Разархивирование файла.vba

Function UnZip_File(ByVal FileNameZip, ByVal DestinationFolder, _
                    Optional ByVal DeleteSourceFile As Boolean = False) As Boolean
    On Error Resume Next: Err.Clear
 
    If Right(DestinationFolder, 1) <> "\" Then DestinationFolder = DestinationFolder & "\"
    MkDir DestinationFolder  

    If Len(Dir(DestinationFolder, vbDirectory)) = 0 Then Exit Function   

    If Len(Dir(FileNameZip)) = 0 Then MsgBox "Файл """ & FileNameZip & """ не найден", _
       vbCritical, "Ошибка в функции UnZip_File": Exit Function
 
    Set oApp = CreateObject("Shell.Application")
    For Each it In oApp.Namespace(FileNameZip).Items: Debug.Print it: Next
 
    oApp.Namespace(DestinationFolder).CopyHere oApp.Namespace(FileNameZip).Items   

    If DeleteSourceFile Then Kill FileNameZip    
    UnZip_File = Err = 0  
End Function