B4J Code Snippet jShell and 7-Zip to list contents and decompress gz (gzip) archive files

Sub btnChooseGzFile_Click
    '[...] For instance dialog box to choose GZ file
   
    ' .gz file path including file name
    Dim sFilePathName As String = "C:\xxx\yyyy.gz"
   
    Dim sh As Shell
   
    ' Shell/7-Zip command:
    ' - "sh": Event name, used later in "sh_ProcessCompleted" to read output
    ' - "cmd": Windows command interpreter to be run by Shell
    ' - "/c": Run a command or executable program
    ' - "7za.exe": Stand-alone 7-Zip program
    ' - "l": (Command) List contents of archive
    ' - "-slt": (Switch) Show technical information. Optional.
    ' - sFilePathName: File path including file name
    sh.Initialize("sh", "cmd", Array As String("/c", "7za.exe", "l", "-slt", sFilePathName))
    ' Directory containing '7za.exe'
    sh.WorkingDirectory = File.DirApp  ' Same directory as the compiled JAR file
    ' Start the process
    sh.Run(-1)
   
    ' Wait for the process to be completed, and read outputs
    ' "sh" in "sh_ProcessCompleted" must be the Event name defined in sh.Initialize("sh", ...)
    Wait For sh_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    Log("sh_ProcessCompleted [00505_1201]. Success: " & Success)
    Log("sh_ProcessCompleted [00505_1202]. ExitCode: " & ExitCode)
    Log("sh_ProcessCompleted [00505_1203]. StdOut: " & StdOut)
    Log("sh_ProcessCompleted [00505_1204]. StdErr: " & StdErr)
   
    'If Success = False Or ExitCode <> 0 Then Return
End Sub

Sub btnChooseGzFile_Click
    '[…]
   
    ' Directory where to put decompressed files
    Dim sDirPath As String = "C:\xxx\"
   
    ' 7-Zip command:
    ' - "x": (Command) Extract with full paths
    ' - sFilePathName: File path including file name
    ' -    "-aoa": (Switch) Overwrite All existing files without prompt
    '   or "-aos": Skip extracting of existing files
    '   or "-aou": aUto rename extracting file (for example, name.txt will be renamed to name_1.txt)
    '   or "-aot": auto rename existing file (for example, name.txt will be renamed to name_1.txt)
    ' - "-o" & sDirPath: (Switch) Set output directory
    sh.Initialize("sh", "cmd", Array As String("/c", "7za.exe", "x", sFilePathName, "-aot", "-o" & sDirPath))
    sh.WorkingDirectory = File.DirApp
    sh.Run(-1)
   
    Wait For sh_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    Log("sh_ProcessCompleted [00505_1206]. Success: " & Success)
    Log("sh_ProcessCompleted [00505_1207]. ExitCode: " & ExitCode)
    Log("sh_ProcessCompleted [00505_1208]. StdOut: " & StdOut)
    Log("sh_ProcessCompleted [00505_1209]. StdErr: " & StdErr)
   
    'If Success = False Or ExitCode <> 0 Then Return
End Sub

Sub Process_Globals
    ' NB: Following lines are only necessary if you want to embed '7za.exe' in the compiled JAR file
    ' Customize the name of DirData directory on computer
    Dim sDirDataName As String = "Raphael_B4J"
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    ' NB: Following lines are only necessary if you want to embed '7za.exe' in the compiled JAR file
    ' Copy '7za.exe' from the JAR file to DirData directory on computer
    'File.Copy(File.DirAssets, "7za.exe", File.DirData(sDirDataName), "7za.exe")
    If File.Exists(File.DirData(sDirDataName), "7za.exe") = False Then
        File.Copy(File.DirAssets, "7za.exe", File.DirData(sDirDataName), "7za.exe")
    End If
End Sub

    sh.WorkingDirectory = File.DirApp  ' Same directory as the compiled JAR file

    sh.WorkingDirectory = File.DirData(sDirDataName)  ' '7za.exe' embedded in JAR file and copied to DirData