Unzip file without any tupe of library

[sal21]

From c:\mydir\miofile.zip to c:\mydir\unzipped\
Possible withouth any 3d part and exetrnal library?
Tks

[SpeakEasy]

Depends very much by how you are defining 3rd party or external library. The Window Shell can do it ... But that's external . But if that's OK, then:

Code: Select all

Public Sub Example()
    Dim strSourceZip As Variant ' do not make this a String
    Dim strTargetFolder As Variant ' do not make this a String
    
    strSourceZip = "D:\Downloads\1848_lvheader.zip"
    strTargetFolder = "D:\Downloads\DeleteMe\unzips"
    
    With CreateObject("Shell.Application")
        .Namespace(strTargetFolder).CopyHere .Namespace(strSourceZip).Items ' all contents of zip folder
        '.Namespace(strTargetFolder).CopyHere .Namespace(strSourceZip).Items.Item("frmLVClrHdr.frm") ' single file from zip
    End With
End Sub

[sal21]

Depends very much by how you are defining 3rd party or external library. The Window Shell can do it ... But that's external . But if that's OK, then:

Code: Select all

Public Sub Example()
    Dim strSourceZip As Variant ' do not make this a String
    Dim strTargetFolder As Variant ' do not make this a String
    
    strSourceZip = "D:\Downloads\1848_lvheader.zip"
    strTargetFolder = "D:\Downloads\DeleteMe\unzips"
    
    With CreateObject("Shell.Application")
        .Namespace(strTargetFolder).CopyHere .Namespace(strSourceZip).Items ' all contents of zip folder
        '.Namespace(strTargetFolder).CopyHere .Namespace(strSourceZip).Items.Item("frmLVClrHdr.frm") ' single file from zip
    End With
End Sub

TKS.
WORK PERFECT!