Con esta Class pueden manejar la aplicación BoxedAppPacker en tiempo de ejecución para empaquetar otros proyectos .NET (u otro tipo de executables) para virtualizarlos.
PD: Se necesita la aplicación BoxedAppPacker v3.XXX (versión de consola), la class no usa el SDK.

#Region " BoxedAppPacker "
 
' [ BoxedAppPacker Functions ]
'
' // By Elektro H@cker
'
' Instructions:
' 1. Add the "BoxedAppPackerConsole.exe" to the project 
' 2. Add the "BoxedAppPacker Class" Class to the project
'
' Examples:
'
' -----------------
' Pack Single File:
' -----------------
' BoxedAppPacker.Pack_Single_File("C:\Windows\Explorer.exe", "C:\Virtual Explorer.exe")
' BoxedAppPacker.Pack_Single_File("C:\Windows\Explorer.exe", "C:\Virtual Explorer.exe", True, True, True, True, True, BoxedAppPacker.BoxedAppPackerVariables.ExeDir)
'
' ---------------------------------
' Pack File And Include More Files:
' ---------------------------------
' BoxedAppPacker.Pack_File_And_Include_More_Files("C:\Windows\Explorer.exe", {"C:\Windows\system32\shell32.dll", "C:\Windows\system32\notepad.exe"}, "C:\Virtual Explorer.exe", True, True, True)
 
 
#Region " BoxedAppPacker Class "
 
Public Class BoxedAppPacker
 
    ''' <summary>
    ''' The BoxedAppPackerConsole.exe location.
    ''' </summary>
    Public Shared BoxedAppPacker_Location As String = ".\BoxedAppPackerConsole.exe"
 
    ''' <summary>
    ''' Boxed App Packer Variables To Override CommandLine.
    ''' </summary>
    Public Enum BoxedAppPackerVariables
        ExeDir ' a directory that contains the packed exe.
        CurDir ' current directory .
        ProgramFiles ' ProgramFiles environment variable.
        Temp ' Temp environment variable.
        BoxedAppVar_ExeFileName ' exe's file name (for example, "notepad.exe") 
        BoxedAppVar_ExeFileExtension ' exe's file extension (for example, "exe") 
        BoxedAppVar_ExeFileNameWithoutExtension ' exe's file name without extension (for example, "notepad") 
        BoxedAppVar_ExeFullPath ' exe's full path (for example, "C_\notepad.exe") 
        BoxedAppVar_OldCmdLine ' a command line specified when the packed exe started, you can use it to add additional arguments, for example: <BoxedAppVar:OldCmdLine> /NewSwitch
        BoxedAppVar_OldArgs ' a command line specified when the packed exe started without the exe path, for example "<BoxedAppVar:ExeFullPath>" /C virtual.cmd <BoxedAppVar:OldArgs>, Usage: packed.exe Arg1 Arg2, It works as: original.exe /C virtual.cmd Arg1 Arg2 
    End Enum
 
    ''' <summary>
    ''' Virtualize a single executable.
    ''' </summary>
    Public Shared Function Pack_Single_File(ByVal File As String, ByVal OutputFile As String, _
                                    Optional ByVal Make_All_File_And_Registry_Changes_Virtual As Boolean = True, _
                                    Optional ByVal Hide_Virtual_Files_From_File_Dialog As Boolean = True, _
                                    Optional ByVal Share_Virtual_Environment_With_Child_Processes As Boolean = False, _
                                    Optional ByVal Enable_Virtual_Registry As Boolean = True, _
                                    Optional ByVal Enable_CommandLine_Arguments As Boolean = True, _
                                    Optional ByVal CommandLine_Variable As BoxedAppPackerVariables = BoxedAppPackerVariables.ExeDir
                                    ) As Boolean
 
        If Not Check_InputExecutable(File) Then Return False
 
        Dim CommandLine_Variable_Formatted As String = CommandLine_Variable.ToString.Replace("_", ":")
 
        Dim BoxedProject_Options_Section As String = "<project project_version=""2"" src=""" _
                                                     & File & _
                                                     """ dest=""" _
                                                     & OutputFile & _
                                                     """ cmd_line_overridden=""" _
                                                     & Enable_CommandLine_Arguments & _
                                                     """ cmd_args=""&lt;" _
                                                     & CommandLine_Variable_Formatted & _
                                                     "&gt;"" share_virtual_environment_with_child_processes=""" _
                                                     & Share_Virtual_Environment_With_Child_Processes & _
                                                     """ enable_debug_log=""false"" " & _
                                                     "enable_virtual_registry=""" _
                                                     & Enable_Virtual_Registry & _
                                                     """ hide_virtual_files_from_file_dialog=""" _
                                                     & Hide_Virtual_Files_From_File_Dialog & _
                                                     """ all_changes_are_virtual=""" _
                                                     & Make_All_File_And_Registry_Changes_Virtual & """>"
 
        Dim BoxedProject_File_Section As String = <a><![CDATA[
 
  <files>
    <file source_path="" name="&lt;ExeDir&gt;" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
      <files/>
    </file>
    <file source_path="" name="&lt;SystemRoot&gt;" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
      <files>
        <file source_path="" name="System32" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
          <files/>
        </file>
      </files>
    </file>
  </files>
]]></a>.Value
 
        Dim BoxedProject_Registry_Section As String = <a><![CDATA[
  <registry>
    <keys>
      <key name="HKEY_CLASSES_ROOT" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_CURRENT_CONFIG" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_CURRENT_USER" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_LOCAL_MACHINE" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_USERS" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
    </keys>
  </registry>
</project>
]]></a>.Value
 
        Try
            Using TextFile As New IO.StreamWriter(System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj", False, System.Text.Encoding.ASCII)
                TextFile.WriteLine(BoxedProject_Options_Section)
            End Using
 
            Using TextFile As New IO.StreamWriter(System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj", True, System.Text.Encoding.ASCII)
                TextFile.WriteLine(BoxedProject_File_Section)
                TextFile.WriteLine(BoxedProject_Registry_Section)
            End Using
 
            Dim BoxedAppPacker_Console As New Process()
            Dim BoxedAppPacker_Console_Info As New ProcessStartInfo()
 
            BoxedAppPacker_Console_Info.FileName = BoxedAppPacker_Location
            BoxedAppPacker_Console_Info.Arguments = """" & System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj" & """"
            BoxedAppPacker_Console_Info.CreateNoWindow = True
            BoxedAppPacker_Console_Info.WindowStyle = ProcessWindowStyle.Hidden
            BoxedAppPacker_Console_Info.UseShellExecute = False
            BoxedAppPacker_Console.StartInfo = BoxedAppPacker_Console_Info
            BoxedAppPacker_Console.Start()
            BoxedAppPacker_Console.WaitForExit()
 
            If BoxedAppPacker_Console.ExitCode <> 0 Then
                Return False
            Else
                Return True
            End If
        Catch ex As Exception
            ' MsgBox(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Virtualize a executable and include more files.
    ''' </summary>
    Public Shared Function Pack_File_And_Include_More_Files(ByVal File As String, ByVal SubFiles() As String, ByVal OutputFile As String, _
                                Optional ByVal Make_All_File_And_Registry_Changes_Virtual As Boolean = True, _
                                Optional ByVal Hide_Virtual_Files_From_File_Dialog As Boolean = True, _
                                Optional ByVal Share_Virtual_Environment_With_Child_Processes As Boolean = False, _
                                Optional ByVal Enable_Virtual_Registry As Boolean = True, _
                                Optional ByVal Enable_CommandLine_Arguments As Boolean = True, _
                                Optional ByVal CommandLine_Variable As BoxedAppPackerVariables = BoxedAppPackerVariables.ExeDir
                                ) As Boolean
 
        If Not Check_InputExecutable(File) Then Return False
 
        Dim CommandLine_Variable_Formatted As String = CommandLine_Variable.ToString.Replace("_", ":")
 
        Dim BoxedProject_Options_Section As String = "<project project_version=""2"" src=""" _
                                                     & File & _
                                                     """ dest=""" _
                                                     & OutputFile & _
                                                     """ cmd_line_overridden=""" _
                                                     & Enable_CommandLine_Arguments & _
                                                     """ cmd_args=""&lt;" _
                                                     & CommandLine_Variable_Formatted & _
                                                     "&gt;"" share_virtual_environment_with_child_processes=""" _
                                                     & Share_Virtual_Environment_With_Child_Processes & _
                                                     """ enable_debug_log=""false"" " & _
                                                     "enable_virtual_registry=""" _
                                                     & Enable_Virtual_Registry & _
                                                     """ hide_virtual_files_from_file_dialog=""" _
                                                     & Hide_Virtual_Files_From_File_Dialog & _
                                                     """ all_changes_are_virtual=""" _
                                                     & Make_All_File_And_Registry_Changes_Virtual & """>"
 
        ' Generate File Section Start
        Dim BoxedProject_File_Section_Start As String = <a><![CDATA[
 
  <files>
    <file source_path="" name="&lt;ExeDir&gt;" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
      <files>
]]></a>.Value
 
        ' Generate SubFiles Tags Section 
        Dim FileCount As Int16 = 0
        Dim SubFile_Tag As String = Nothing
 
        For SubFile As Integer = 1 To SubFiles.Count
            Application.DoEvents()
            FileCount += 1
 
            If FileCount = 1 Then
                SubFile_Tag += <a><![CDATA[
        <file source_path="]]></a>.Value & SubFiles(FileCount - 1) & <a><![CDATA[" name="]]></a>.Value & SubFiles(FileCount - 1).Split("\").Last & <a><![CDATA[" virtual="true" virtually_deleted="false" dir="false" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="/RegServer" register_as_typelib="false">
          <files/>
]]></a>.Value
            Else
                SubFile_Tag += <a><![CDATA[
        </file>
        <file source_path="]]></a>.Value & SubFiles(FileCount - 1) & <a><![CDATA[" name="]]></a>.Value & SubFiles(FileCount - 1).Split("\").Last & <a><![CDATA[" virtual="true" virtually_deleted="false" dir="false" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="/RegServer" register_as_typelib="false">
          <files/>
]]></a>.Value
            End If
 
        Next
 
        ' Generate File Section End 
        Dim BoxedProject_File_Section_End As String = <a><![CDATA[
        </file>
      </files>
    </file>
    <file source_path="" name="&lt;SystemRoot&gt;" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
      <files>
        <file source_path="" name="System32" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
          <files/>
        </file>
      </files>
    </file>
  </files>
]]></a>.Value
 
        ' Generate Registry Section
        Dim BoxedProject_Registry_Section As String = <a><![CDATA[
  <registry>
    <keys>
      <key name="HKEY_CLASSES_ROOT" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_CURRENT_CONFIG" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_CURRENT_USER" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_LOCAL_MACHINE" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_USERS" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
    </keys>
  </registry>
</project>
]]></a>.Value
 
        Try
 
            Using TextFile As New IO.StreamWriter(System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj", False, System.Text.Encoding.ASCII)
                TextFile.WriteLine(BoxedProject_Options_Section)
                TextFile.WriteLine(BoxedProject_File_Section_Start)
                TextFile.WriteLine(SubFile_Tag)
                TextFile.WriteLine(BoxedProject_File_Section_End)
                TextFile.WriteLine(BoxedProject_Registry_Section)
            End Using
 
            Dim BoxedAppPacker_Console As New Process()
            Dim BoxedAppPacker_Console_Info As New ProcessStartInfo()
 
            BoxedAppPacker_Console_Info.FileName = BoxedAppPacker_Location
            BoxedAppPacker_Console_Info.Arguments = """" & System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj" & """"
            BoxedAppPacker_Console_Info.CreateNoWindow = True
            BoxedAppPacker_Console_Info.WindowStyle = ProcessWindowStyle.Hidden
            BoxedAppPacker_Console_Info.UseShellExecute = False
            BoxedAppPacker_Console.StartInfo = BoxedAppPacker_Console_Info
            BoxedAppPacker_Console.Start()
            BoxedAppPacker_Console.WaitForExit()
 
            If BoxedAppPacker_Console.ExitCode <> 0 Then
                Return False
            Else
                Return True
            End If
        Catch ex As Exception
            ' MsgBox(ex.Message)
            Return False
        End Try
 
    End Function
 
    ' Checks if InputFile exist and also is a executable.
    Private Shared Function Check_InputExecutable(ByVal File As String) As Boolean
        If Not IO.File.Exists(File) Then
            MsgBox("File don't exist.")
            Return False
        End If
        If Not File.ToLower.EndsWith(".exe") Then
            MsgBox("Not a valid executable file.")
            Return False
        End If
        Return True
    End Function
 
End Class
 
#End Region
 
#End Region

¿Incluido donde?, ¿en el archivo del recopilatorio comprimido?, a que te refieres, el código lo tienes en la página 7.

No hay reglas, puedes publicar tanto código própio como ajeno,
lo importante que hay que tener en cuenta es que séa código re-usable y no código hardcodeado.

un saludo!

EDITO:

Si, todos los codes que yo he publicado es porque he necesitado usarlos, y me guardo una copia que puedes encontrar en el post principal.

@lmarza
No revivas posts de hace 4 años, gracias.

Ya dispones de una variable con ese formato:

Una class con funciones para realizar todo tipo de operaciones en el Registro de Windows:

- Crear clave
- Eliminar clave
- Crear valor
- Eliminar valor
- Obtener los datos de un valor
- Exportar clave
- Importar archivo
- Saltar a clave (abrir Regedit en clave específica)
- Comprobar si un valor existe
- Comprobar si los datos de un valor están vacíos
- Copiar clave a otro lugar del registro
- Copiar valor a otro lugar del registro
- Establecer permisos de usuario para una clave

#Region " RegEdit "
 
' [ RegEdit Functions ]
'
' // By Elektro H@cker
'
' Examples :
'
' -----------
' Create Key:
' -----------
' RegEdit.Create_Key("HKCU\Software\MyProgram")                        ' Creates "HKCU\Software\MyProgram"
' RegEdit.Create_Key("HKEY_CURRENT_USER\Software\MyProgram\Settings\") ' Creates "HKCU\Software\MyProgram\Settings"
'
' -----------
' Delete Key:
' -----------
' RegEdit.Delete_Key("HKLM\Software\7-zip")                ' Deletes the "7-zip" tree including subkeys
' RegEdit.Delete_Key("HKEY_LOCAL_MACHINE\Software\7-zip\") ' Deletes the "7-zip" tree including subkeys
'
' -------------
' Delete Value:
' -------------
' RegEdit.Delete_Value("HKCU\Software\7-Zip", "Lang")               ' Deletes "Lang" Value
' RegEdit.Delete_Value("HKEY_CURRENT_USER\Software\7-Zip\", "Lang") ' Deletes "Lang" Value
'
' ----------
' Get Value:
' ----------
' Dim Data As String = RegEdit.Get_Value("HKCU\Software\MyProgram", "Value name"))
' Dim Data As String = RegEdit.Get_Value("HKEY_CURRENT_USER\Software\MyProgram", "Value name"))
'
' ----------
' Set Value:
' ----------
' RegEdit.Set_Value("HKCU\Software\MyProgram", "Value name", "Data", Microsoft.Win32.RegistryValueKind.String)               ' Create/Replace "Value Name" with "Data" as string data
' RegEdit.Set_Value("HKEY_CURRENT_USER\Software\MyProgram\", "Value name", "Data", Microsoft.Win32.RegistryValueKind.String) ' Create/Replace "Value Name" with "Data" as string data
'
' -----------
' Export Key:
' -----------
' RegEdit.Export_Key("HKLM", "C:\HKLM.reg")                  ' Export entire "HKEY_LOCAL_MACHINE" Tree to "C:\HKLM.reg" file.
' RegEdit.Export_Key("HKLM\Software\7-zip\", "C:\7-zip.reg") ' Export entire "7-zip" Tree to "C:\7-zip.reg" file.
'
' ------------
' Import File:
' ------------
' RegEdit.Import_RegFile("C:\Registry_File.reg") ' Install a registry file.
'
' ------------
' Jump To Key:
' ------------
' RegEdit.Jump_To_Key("HKLM")                               ' Opens Regedit at "HKEY_LOCAL_MACHINE" Root.
' RegEdit.Jump_To_Key("HKEY_LOCAL_MACHINE\Software\7-zip\") ' Opens Regedit at "HKEY_LOCAL_MACHINE\Software\7-zip" tree.
'
' -------------
' Exist Value?:
' -------------
' MsgBox(RegEdit.Exist_Value("HKLM\software\7-zip", "Path") ' Checks if "Path" value exist.
'
' ------------
' Exist Data?:
' ------------
' MsgBox(RegEdit.Exist_Data("HKLM\software\7-zip", "Path") ' Checks if "Path" value have empty data.
'
' ---------
' Copy Key:
' ---------
' RegEdit.Copy_Key("HKCU", "Software", "7-Zip", "HKLM", "Software", "7-zip")          ' Copies "HKCU\Software\7-Zip" to "HKLM\Software\7-Zip"
' RegEdit.Copy_Key("HKCU", "Software", "7-Zip", Nothing, "Software", "7-zip")         ' Copies "HKCU\Software\7-Zip" to "HKCU\Software\7-Zip"
' RegEdit.Copy_Key("HKCU", "Software", "7-Zip", "HKLM", "Software", Nothing)          ' Copies "HKCU\Software\7-Zip" to "HKLM\Software\"
' RegEdit.Copy_Key("HKCU", "Software", "7-Zip", "HKLM", Nothing, Nothing)             ' Copies "HKCU\Software\7-Zip" to "HKLM\"
' RegEdit.Copy_Key("HKCU", "\Software\", "\7-Zip\", "HKLM", "\Software\", "\7-zip\")  ' Copies "HKCU\Software\7-Zip" to "HKLM\Software\7-Zip"
'
' -----------
' Copy Value:
' -----------
' RegEdit.Copy_Value("HKLM\software\7-zip", "path", "HKLM\software\7-zip", "path_backup") ' Copies "Path" value with their data to "HKLM\software\7-zip" "path_backup".
'
' -----------
' Set_UserAccess_Key:
' -----------
' RegEdit.Set_UserAccess_Key("HKCU\Software\7-Zip", {RegEdit.RegUserAccess.Administrators_Full_Access})
' RegEdit.Set_UserAccess_Key("HKEY_CURRENT_USER\Software\7-Zip", {RegEdit.RegUserAccess.Administrators_Full_Access, RegEdit.RegUserAccess.Creator_Full_Access, RegEdit.RegUserAccess.System_Full_Access})
 
#Region " RegEdit Class "
 
Public Class RegEdit
 
    ''' <summary>
    ''' Create a new registry key.
    ''' </summary>
    Public Shared Function Create_Key(ByVal RegKey As String) As Boolean
 
        Dim RootKey As Microsoft.Win32.RegistryKey = Get_Root_Key(RegKey)
        Dim KeyPath As String = Get_Key_Path(RegKey)
 
        Try
            RootKey.CreateSubKey(KeyPath)
            RootKey.Close()
            RootKey.Dispose()
            Return True
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Delete a registry key.
    ''' </summary>
    Public Shared Function Delete_Key(ByVal RegKey As String) As Boolean
 
        Dim RootKey As Microsoft.Win32.RegistryKey = Get_Root_Key(RegKey)
        Dim KeyPath As String = Get_Key_Path(RegKey)
 
        Try
            RootKey.DeleteSubKeyTree(KeyPath)
            RootKey.Close()
            RootKey.Dispose()
            Return True
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Delete a registry key.
    ''' </summary>
    Public Shared Function Delete_Value(ByVal RegKey As String, ByVal RegValue As String) As Boolean
 
        Dim RootKey As Microsoft.Win32.RegistryKey = Get_Root_Key(RegKey)
        Dim KeyPath As String = Get_Key_Path(RegKey)
 
        Try
            RootKey.OpenSubKey(KeyPath, True).DeleteValue(RegValue)
            RootKey.Close()
            RootKey.Dispose()
            Return True
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Get the data of a registry value.
    ''' </summary>
    Public Shared Function Get_Value(ByVal RegKey As String, ByVal RegValue As String) As String
 
        Dim RootKey As String = Get_Root_Key(RegKey).ToString
        Dim KeyPath As String = RootKey & "\" & Get_Key_Path(RegKey)
 
        Try
            Return My.Computer.Registry.GetValue(KeyPath, RegValue, Nothing)
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
    End Function
 
    ''' <summary>
    ''' Set the data of a registry value.
    ''' If the Key or value don't exist it will be created automatically.
    ''' </summary>
    Public Shared Function Set_Value(ByVal RegKey As String, _
                                     ByVal RegValue As String, _
                                     ByVal RegData As String, _
                                     ByVal RegDataType As Microsoft.Win32.RegistryValueKind) As Boolean
 
        Dim RootKey As String = Get_Root_Key(RegKey).ToString
        Dim KeyPath As String = RootKey & "\" & Get_Key_Path(RegKey)
 
        Try
            If RegDataType = Microsoft.Win32.RegistryValueKind.Binary Then
                My.Computer.Registry.SetValue(KeyPath, RegValue, System.Text.Encoding.ASCII.GetBytes(RegData), Microsoft.Win32.RegistryValueKind.Binary)
            Else
                My.Computer.Registry.SetValue(KeyPath, RegValue, RegData, RegDataType)
            End If
            Return True
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Export a registry key (including sub-keys) to a file.
    ''' </summary>
    Public Shared Function Export_Key(ByVal RegKey As String, ByVal OutputFile As String) As Boolean
        Dim RootKey As String = Get_Root_Key(RegKey).ToString
        Dim KeyPath As String = RootKey & "\" & Get_Key_Path(RegKey)
        If KeyPath.EndsWith("\") Then KeyPath = KeyPath.Substring(0, KeyPath.Length - 1)
 
        Try
            Dim Regedit As New Process()
            Dim Regedit_Info As New ProcessStartInfo()
 
            Regedit_Info.FileName = "Reg.exe"
            Regedit_Info.Arguments = "Export " & """" & KeyPath & """" & " " & """" & OutputFile & """" & " /y"
            Regedit_Info.CreateNoWindow = True
            Regedit_Info.WindowStyle = ProcessWindowStyle.Hidden
            Regedit_Info.UseShellExecute = False
            Regedit.StartInfo = Regedit_Info
            Regedit.Start()
            Regedit.WaitForExit()
 
            If Regedit.ExitCode <> 0 Then
                Return False
            Else
                Return True
            End If
 
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Import a registry file.
    ''' </summary>
    Public Shared Function Import_RegFile(ByVal RegFile As String) As Boolean
 
        If IO.File.Exists(RegFile) Then
 
            Try
                Dim Regedit As New Process()
                Dim Regedit_Info As New ProcessStartInfo()
 
                Regedit_Info.FileName = "Reg.exe"
                Regedit_Info.Arguments = "Import " & """" & RegFile & """"
                Regedit_Info.CreateNoWindow = True
                Regedit_Info.WindowStyle = ProcessWindowStyle.Hidden
                Regedit_Info.UseShellExecute = False
                Regedit.StartInfo = Regedit_Info
                Regedit.Start()
                Regedit.WaitForExit()
 
                If Regedit.ExitCode <> 0 Then
                    Return False
                Else
                    Return True
                End If
 
            Catch ex As Exception
                ' MsgBox(ex.Message)
                ' Throw New Exception(ex.Message)
                Return False
            End Try
 
        Else
            ' MsgBox("File don't exist")
            Return False
 
        End If
 
    End Function
 
    ''' <summary>
    ''' Open Regedit at specific key.
    ''' </summary>
    Public Shared Function Jump_To_Key(ByVal RegKey As String) As Boolean
 
        Dim RootKey As String = Get_Root_Key(RegKey).ToString
        Dim KeyPath As String = RootKey & "\" & Get_Key_Path(RegKey)
        If KeyPath.EndsWith("\") Then KeyPath = KeyPath.Substring(0, KeyPath.Length - 1)
 
        Try
            Set_Value("HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit", "LastKey", "" & KeyPath & "", Microsoft.Win32.RegistryValueKind.String)
            Process.Start("Regedit.exe")
            Return True
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Check if a value exist.
    ''' </summary>
    Public Shared Function Exist_Value(ByVal RegKey As String, ByVal RegValue As String) As Boolean
 
        Dim RootKey As Microsoft.Win32.RegistryKey = Get_Root_Key(RegKey)
        Dim KeyPath As String = Get_Key_Path(RegKey)
 
        Try
            If RootKey.OpenSubKey(KeyPath, False).GetValue(RegValue) = String.Empty Then
                Return False
            Else
                Return True
            End If
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Check if a value have empty data.
    ''' </summary>
    Public Shared Function Exist_Data(ByVal RegKey As String, ByVal RegValue As String) As Boolean
 
        Dim RootKey As String = Get_Root_Key(RegKey).ToString
        Dim KeyPath As String = RootKey & "\" & Get_Key_Path(RegKey)
 
        Try
            If My.Computer.Registry.GetValue(KeyPath, RegValue, Nothing) = Nothing Then
                Return False
            Else
                Return True
            End If
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Copy a key tree to another location of the registry.
    ''' </summary>
    Public Shared Function Copy_Key(ByVal OldRootKey As String, _
                        ByVal OldPath As String, _
                        ByVal OldName As String, _
                        ByVal NewRootKey As String, _
                        ByVal NewPath As String, _
                        ByVal NewName As String) As Boolean
 
        If OldPath Is Nothing Then OldPath = ""
        If NewRootKey Is Nothing Then NewRootKey = OldRootKey
        If NewPath Is Nothing Then NewPath = ""
        If NewName Is Nothing Then NewName = ""
 
        If OldRootKey.EndsWith("\") Then OldRootKey = OldRootKey.Substring(0, OldRootKey.Length - 1)
        If NewRootKey.EndsWith("\") Then NewRootKey = NewRootKey.Substring(0, NewRootKey.Length - 1)
 
        If OldPath.StartsWith("\") Then OldPath = OldPath.Substring(1, OldPath.Length - 1)
        If OldPath.EndsWith("\") Then OldPath = OldPath.Substring(0, OldPath.Length - 1)
        If NewPath.StartsWith("\") Then NewPath = NewPath.Substring(1, NewPath.Length - 1)
        If NewPath.EndsWith("\") Then NewPath = NewPath.Substring(0, NewPath.Length - 1)
 
        If OldName.StartsWith("\") Then OldName = OldName.Substring(1, OldName.Length - 1)
        If OldName.EndsWith("\") Then OldName = OldName.Substring(0, OldName.Length - 1)
        If NewName.StartsWith("\") Then NewName = NewName.Substring(1, NewName.Length - 1)
        If NewName.EndsWith("\") Then NewName = NewName.Substring(0, NewName.Length - 1)
 
        Dim OrigRootKey As Microsoft.Win32.RegistryKey = Get_Root_Key(OldRootKey)
        Dim DestRootKey As Microsoft.Win32.RegistryKey = Get_Root_Key(NewRootKey)
 
        Dim oldkey As Microsoft.Win32.RegistryKey = OrigRootKey.OpenSubKey(OldPath + "\" + OldName, True)
        Dim newkey As Microsoft.Win32.RegistryKey = DestRootKey.OpenSubKey(NewPath, True).CreateSubKey(NewName)
        Reg_Copy_SubKeys(oldkey, newkey)
        Return True
    End Function
 
    Private Shared Sub Reg_Copy_SubKeys(OrigKey As Microsoft.Win32.RegistryKey, DestKey As Microsoft.Win32.RegistryKey)
 
        Dim ValueNames As String() = OrigKey.GetValueNames()
        Dim SubKeyNames As String() = OrigKey.GetSubKeyNames()
 
        For i As Integer = 0 To ValueNames.Length - 1
            Application.DoEvents()
            DestKey.SetValue(ValueNames(i), OrigKey.GetValue(ValueNames(i)))
        Next
 
        For i As Integer = 0 To SubKeyNames.Length - 1
            Application.DoEvents()
            Reg_Copy_SubKeys(OrigKey.OpenSubKey(SubKeyNames(i), True), DestKey.CreateSubKey(SubKeyNames(i)))
        Next
 
    End Sub
 
    ''' <summary>
    ''' Copy a value with their data to another location of the registry.
    ''' If the Key don't exist it will be created automatically.
    ''' </summary>
    Public Shared Function Copy_Value(ByVal RegKey As String, ByVal RegValue As String, _
                                      ByVal NewRegKey As String, ByVal NewRegValue As String) As Boolean
 
        Dim OldRootKey As String = Get_Root_Key(RegKey).ToString
        Dim OldKeyPath As String = OldRootKey & "\" & Get_Key_Path(RegKey)
 
        Dim NewRootKey As String = Get_Root_Key(NewRegKey).ToString
        Dim NewKeyPath As String = NewRootKey & "\" & Get_Key_Path(NewRegKey)
 
        Dim RegData = Get_Value(OldKeyPath, RegValue)
 
        Try
            Set_Value(NewKeyPath, NewRegValue, RegData, Microsoft.Win32.RegistryValueKind.Unknown)
            Return True
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Valid User identifiers for Regini.exe command.
    ''' </summary>
    Public Enum RegUserAccess As Short
        Administrators_Full_Access = 1
        Administrators_Read_Access = 2
        Administrators_Read_and_Write_Access = 3
        Administrators_Read_Write_and_Delete_Access4
        Administrators_Read_Write_and_Execute_Access = 20
        Creator_Full_Access = 5
        Creator_Read_and_Write_Access = 6
        Interactive_User_Full_Access = 21
        Interactive_User_Read_and_Write_Access = 22
        Interactive_User_Read_Write_and_Delete_Access = 23
        Power_Users_Full_Access = 11
        Power_Users_Read_and_Write_Access = 12
        Power_Users_Read_Write_and_Delete_Access = 13
        System_Full_Access = 17
        System_Operators_Full_Access = 14
        System_Operators_Read_and_Write_Access = 15
        System_Operators_Read_Write_and_Delete_Access = 16
        System_Read_Access = 19
        System_Read_and_Write_Access = 18
        World_Full_Access = 7
        World_Read_Access = 8
        World_Read_and_Write_Access = 9
        World_Read_Write_and_Delete_Access = 10
    End Enum
 
    ''' <summary>
    ''' Modify the User permissions of a registry key.
    ''' </summary>
    Public Shared Function Set_UserAccess_Key(ByVal RegKey As String, ByVal RegUserAccess() As RegUserAccess) As Boolean
 
        Dim PermissionString As String = Nothing
        Dim RootKey As String = Get_Root_Key(RegKey).ToString
 
        Dim KeyPath As String = RootKey & "\" & Get_Key_Path(RegKey)
        If KeyPath.EndsWith("\") Then KeyPath = KeyPath.Substring(0, KeyPath.Length - 1)
 
        For Each user In RegUserAccess
            Application.DoEvents()
            PermissionString += " " & user
        Next
 
        PermissionString = "[" & PermissionString & "]"
        PermissionString = PermissionString.Replace("[ ", "[")
 
        Try
 
            Using TextFile As New IO.StreamWriter(System.IO.Path.GetTempPath() & "Regini.ini", False, System.Text.Encoding.ASCII)
                TextFile.WriteLine("""" & KeyPath & """" & " " & PermissionString)
            End Using
 
            Dim Regini As New Process()
            Dim Regini_Info As New ProcessStartInfo()
 
            Regini_Info.FileName = "Regini.exe"
 
 
            MsgBox(PermissionString)
            MsgBox("Regini.exe " & """" & System.IO.Path.GetTempPath() & "Regini.ini" & """")
 
 
            Regini_Info.Arguments = """" & System.IO.Path.GetTempPath() & "Regini.ini" & """"
            Regini_Info.CreateNoWindow = True
            Regini_Info.WindowStyle = ProcessWindowStyle.Hidden
            Regini_Info.UseShellExecute = False
            Regini.StartInfo = Regini_Info
            Regini.Start()
            Regini.WaitForExit()
 
            If Regini.ExitCode <> 0 Then
                Return False
            Else
                Return True
            End If
 
        Catch ex As Exception
            ' MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
    ' Returns the RootKey formatted
    Private Shared Function Get_Root_Key(ByVal RegKey As String) As Microsoft.Win32.RegistryKey
        Select Case RegKey.ToUpper.Split("\").First
            Case "HKCR", "HKEY_CLASSES_ROOT" : Return Microsoft.Win32.Registry.ClassesRoot
            Case "HKCC", "HKEY_CURRENT_CONFIG" : Return Microsoft.Win32.Registry.CurrentConfig
            Case "HKCU", "HKEY_CURRENT_USER" : Return Microsoft.Win32.Registry.CurrentUser
            Case "HKLM", "HKEY_LOCAL_MACHINE" : Return Microsoft.Win32.Registry.LocalMachine
            Case "HKEY_PERFORMANCE_DATA" : Return Microsoft.Win32.Registry.PerformanceData
            Case Else : Return Nothing
        End Select
    End Function
 
    ' Returns the KeyPath formatted
    Private Shared Function Get_Key_Path(ByVal RegKey As String) As String
        Dim KeyPath As String = String.Empty
        For i As Integer = 1 To RegKey.Split("\").Length - 1
            Application.DoEvents()
            KeyPath += RegKey.Split("\")(i) & "\"
        Next
 
        If Not KeyPath.Contains("\") Then KeyPath = KeyPath & "\"
        KeyPath = KeyPath.Substring(0, KeyPath.LastIndexOf("\"))
 
        Return KeyPath
    End Function
 
End Class
 
#End Region
 
#End Region

Una class para trabajar con StringCases por ejemplo para renombrar archivos de forma masiva a TitleCase,
contiene las funciones que posteé hace un tiempo, y le he añadido el "InvertedCase".

#Region " StringCase Class "
 
Public Class StringCase
 
    ' [ StringCase Functions ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(StringCase.Titlecase("THiS is a TeST"))
    ' MsgBox(StringCase.DelimitedCase_Lower("THiS is a TeST", ";"))
    ' MsgBox(StringCase.InvertedCase("HeLLo"))
    ' Var = StringCase.WordCase(Var)
 
    ''' <summary>
    ''' Convert to LowerCase [Ex: ab cd ef]
    ''' </summary>
    Public Shared Function LowerCase(ByVal Text As String) As String
        Return Text.ToLower
    End Function
 
    ''' <summary>
    ''' Convert to UpperCase [Ex: AB CD EF]
    ''' </summary>
    Public Shared Function UpperCase(ByVal Text As String) As String
        Return Text.ToUpper
    End Function
 
    ''' <summary>
    ''' Convert to Titlecase [Ex: Ab cd ef]
    ''' </summary>
    Public Shared Function Titlecase(ByVal Text As String) As String
        Return Char.ToUpper(Text(0)) + StrConv(Text.Substring(1), VbStrConv.Lowercase)
    End Function
 
    ''' <summary>
    ''' Convert to WordCase [Ex: Ab Cd Ef]
    ''' </summary>
    Public Shared Function WordCase(ByVal Text As String) As String
        Return System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(Text)
    End Function
 
    ''' <summary>
    ''' Convert to CamelCase (And first letter to Lower) [Ex: abCdEf]
    ''' </summary>
    Public Shared Function CamelCase_First_Lower(ByVal Text As String) As String
        Return Char.ToLower(Text(0)) & System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(Text).Replace(" ", "").Substring(1)
    End Function
 
    ''' <summary>
    ''' Convert to CamelCase (And first letter to Upper) [Ex: AbCdEf]
    ''' </summary>
    Public Shared Function CamelCase_First_Upper(ByVal Text As String) As String
        Return Char.ToUpper(Text(0)) & System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(Text).Replace(" ", "").Substring(1)
    End Function
 
    ''' <summary>
    ''' Convert to MixedCase (And first letter to Lower) [Ex: aB Cd eF]
    ''' </summary>
    Public Shared Function MixedCase_First_Lower(ByVal Text As String) As String
        Dim MixedString As String = Nothing
        For X As Integer = 0 To Text.Length - 1
            Application.DoEvents()
            Dim c As Char = Text(X)
            If (X / 2).ToString.Contains(",") Then _
                 MixedString += c.ToString.ToUpper _
            Else MixedString += c.ToString.ToLower
        Next
        Return MixedString
    End Function
 
    ''' <summary>
    ''' Convert to MixedCase (And first letter to Upper) [Ex: Ab cD Ef]
    ''' </summary>
    Public Shared Function MixedCase_First_Upper(ByVal Text As String) As String
        Dim MixedString As String = Nothing
        For X As Integer = 0 To Text.Length - 1
            Application.DoEvents()
            Dim c As Char = Text(X)
            If (X / 2).ToString.Contains(",") Then _
                 MixedString += c.ToString.ToLower _
            Else MixedString += c.ToString.ToUpper
        Next
        Return MixedString
    End Function
 
    ''' <summary>
    ''' Convert to MixedCase (And first letter of each word to Lower) [Ex: aB cD eF]
    ''' </summary>
    Public Shared Function MixedCase_Word_Lower(ByVal Text As String) As String
        Dim MixedString As String = Nothing
        Dim Count As Integer = 1
        For X As Integer = 0 To Text.Length - 1
            Application.DoEvents()
            Dim c As Char = Text(X)
            If Not c = " " Then Count += 1 Else Count = 1
            If (Count / 2).ToString.Contains(",") Then _
                 MixedString += c.ToString.ToUpper _
            Else MixedString += c.ToString.ToLower
        Next
        Return MixedString
    End Function
 
    ''' <summary>
    ''' Convert to MixedCase (And first letter of each word to Upper) [Ex: Ab Cd Ef]
    ''' </summary>
    Public Shared Function MixedCase_Word_Upper(ByVal Text As String) As String
        Dim MixedString As String = Nothing
        Dim Count As Integer = 1
        For X As Integer = 0 To Text.Length - 1
            Application.DoEvents()
            Dim c As Char = Text(X)
            If Not c = " " Then Count += 1 Else Count = 1
            If (Count / 2).ToString.Contains(",") Then _
                 MixedString += c.ToString.ToLower _
            Else MixedString += c.ToString.ToUpper
        Next
        Return MixedString
    End Function
 
    ''' <summary>
    ''' Convert to DelimitedCase (And All letters to Lower) [Ex: ab-cd-ef]
    ''' </summary>
    Public Shared Function DelimitedCase_Lower(ByVal Text As String, Optional ByVal Delimiter As String = "-") As String
        Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
        Return rgx.Replace(Text.ToLower, Delimiter)
    End Function
 
    ''' <summary>
    ''' Convert to DelimitedCase (And All letters to Upper) [Ex: AB-CD-EF]
    ''' </summary>
    Public Shared Function DelimitedCase_Upper(ByVal Text As String, Optional ByVal Delimiter As String = "-") As String
        Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
        Return rgx.Replace(Text.ToUpper, Delimiter)
    End Function
 
    ''' <summary>
    ''' Convert to DelimitedCase (And first letter to Upper) [Ex: Ab-cd-ef]
    ''' </summary>
    Public Shared Function DelimitedCase_Title(ByVal Text As String, Optional ByVal Delimiter As String = "-") As String
        Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
        Return rgx.Replace(Char.ToUpper(Text(0)) + StrConv(Text.Substring(1), VbStrConv.Lowercase), Delimiter)
    End Function
 
    ''' <summary>
    ''' Convert to DelimitedCase (And first letter of each word to Lower) [Ex: aB-cD-eF]
    ''' </summary>
    Public Shared Function DelimitedCase_Mixed_Word_Lower(ByVal Text As String, Optional ByVal Delimiter As String = "-") As String
        Dim MixedString As String = Nothing
        Dim Count As Integer = 1
        For X As Integer = 0 To Text.Length - 1
            Application.DoEvents()
            Dim c As Char = Text(X)
            If Not c = " " Then Count += 1 Else Count = 1
            If (Count / 2).ToString.Contains(",") Then _
                 MixedString += c.ToString.ToUpper _
            Else MixedString += c.ToString.ToLower
        Next
        Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
        Return rgx.Replace(MixedString, Delimiter)
    End Function
 
    ''' <summary>
    ''' Convert to DelimitedCase (And first letter of each word to Upper) [Ex: Ab-Cd-Ef]
    ''' </summary>
    Public Shared Function DelimitedCase_Mixed_Word_Upper(ByVal Text As String, Optional ByVal Delimiter As String = "-") As String
        Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
        Return rgx.Replace(System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(Text), Delimiter)
    End Function
 
    ''' <summary>
    ''' Covert string to InvertedCase [Ex: HeLLo -> hEllO ]
    ''' </summary>
    Public Shared Function InvertedCase(ByVal Text As String) As String
        Dim InvertedString As String = String.Empty
 
        For Each character In Text
            Application.DoEvents()
            If Char.IsUpper(character) Then
                InvertedString += character.ToString.ToLower
            Else : InvertedString += character.ToString.ToUpper
            End If
        Next
 
        Return InvertedString
    End Function
 
End Class
 
#End Region

Mi versión modificada del "FileInfo"

#Region " Get File Info "
 
    ' [ Get File Info Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples:
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.Name))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.Extension))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.FileName))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.Directory))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.DriveLetter))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.FullName))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.ShortName))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.ShortPath))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.Name_Length))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.Extension_Length))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.FileName_Length))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.Directory_Length))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.FullName_Length))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.FileSize))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.FileVersion))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.Attributes_Enum))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.Attributes_String))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.CreationTime))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.LastAccessTime))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.LastModifyTime))
    ' MsgBox(Get_File_Info("C:\Test.txt", FileInfo.Has_Extension))
 
    Public Enum FileInfo
 
        Name                  ' Filename without extension
        Extension_With_Dot    ' File-Extension (with dot included)
        Extension_Without_Dot ' File-Extension (without dot)
        FileName              ' Filename.extension
        Directory             ' Directory name
        DriveLetter           ' Drive letter (only 1 letter)
        FullName              ' Directory path + Filename
 
        ShortName ' DOS8.3 Filename
        ShortPath ' DOS8.3 Path Name
 
        Name_Length                  ' Length of Filename without extension
        Extension_With_Dot_Length    ' Length of File-Extension (with dot included)
        Extension_Without_Dot_Length ' Length of File-Extension (without dot)
        FileName_Length              ' Length of Filename.extension
        Directory_Length             ' Length of Directory name
        FullName_Length              ' Length of Directory path + Filename
 
        FileSize    ' Size in Bytes
 
        FileVersion ' Version for DLL or EXE files
 
        Attributes_Enum   ' Attributes in Integer format
        Attributes_String ' Attributes in String format
 
        CreationTime   ' Date Creation time
        LastAccessTime ' Date Last Access time
        LastModifyTime ' Date Last Modify time
 
        Has_Extension  ' Checks if file have a file-extension.
 
    End Enum
 
    Private Function Get_File_Info(ByVal File As String, ByVal Information As FileInfo)
 
        Dim File_Info = My.Computer.FileSystem.GetFileInfo(File)
 
        Select Case Information
 
            Case FileInfo.Name : Return File_Info.Name.Substring(0, File_Info.Name.LastIndexOf("."))
            Case FileInfo.Extension_With_Dot : Return File_Info.Extension
            Case FileInfo.Extension_Without_Dot : Return File_Info.Extension.Split(".").Last
            Case FileInfo.FileName : Return File_Info.Name
            Case FileInfo.Directory : Return File_Info.DirectoryName
            Case FileInfo.DriveLetter : Return File_Info.Directory.Root.ToString.Substring(0, 1)
            Case FileInfo.FullName : Return File_Info.FullName
 
            Case FileInfo.ShortName : Return CreateObject("Scripting.FileSystemObject").GetFile(File).ShortName
            Case FileInfo.ShortPath : Return CreateObject("Scripting.FileSystemObject").GetFile(File).ShortPath
 
            Case FileInfo.Name_Length : Return File_Info.Name.Length
            Case FileInfo.Extension_With_Dot_Length : Return File_Info.Extension.Length
            Case FileInfo.Extension_Without_Dot_Length : Return File_Info.Extension.Split(".").Last.Length
            Case FileInfo.FileName_Length : Return File_Info.Name.Length
            Case FileInfo.Directory_Length : Return File_Info.DirectoryName.Length
            Case FileInfo.FullName_Length : Return File_Info.FullName.Length
 
            Case FileInfo.FileSize : Return File_Info.Length
 
            Case FileInfo.FileVersion : Return CreateObject("Scripting.FileSystemObject").GetFileVersion(File)
 
            Case FileInfo.Attributes_Enum : Return File_Info.Attributes
            Case FileInfo.Attributes_String : Return File_Info.Attributes.ToString
 
            Case FileInfo.CreationTime : Return File_Info.CreationTime
            Case FileInfo.LastAccessTime : Return File_Info.LastAccessTime
            Case FileInfo.LastModifyTime : Return File_Info.LastWriteTime
 
            Case FileInfo.Has_Extension : Return IO.Path.HasExtension(File)
 
            Case Else : Return Nothing
 
        End Select
 
    End Function
 
#End Region

Una class para usar SevenZipSharp de forma sencilla para "comprimir/descomprimir/Crear un SFX/obtener información de zips" y mostrando el progreso de las operaciones.

#Region " SevenZipSharp Class "
 
' [ SevenZipSharp Functions ]
'
' // By Elektro H@cker
'
' Instructions :
' 1. Add a reference to "SevenZipSharp.dll".
' 2. Add the "7z.dll" or "7z64.dll" files to the project.
' 3. Add the "7z.sfx" and "7zCon.sfx" files to the project for SFX compression.
'
' Examples :
'
' --------
' Extract:
' --------
' SevenZipSharp.Extract("C:\File.7zip")                  ' Will be extracted in the same dir.
' SevenZipSharp.Extract("C:\File.7zip", "C:\Extracted\") ' Will be extracted in "C:\Extracted\".
' SevenZipSharp.Extract("C:\File.7zip", , "Password")    ' Will be extracted with the given password.
'
' --------
' Compress:
' ---------
' SevenZipSharp.Compress("C:\File.txt")                          ' File will be compressed in the same dir.
' SevenZipSharp.Compress("C:\File.txt", "C:\Compressed\File.7z") ' File will be compressed in "C:\Compressed\".
' SevenZipSharp.Compress("C:\Folder\", , , , , , "Password")     ' Folder will be compressed with the given password.
' SevenZipSharp.Compress("C:\File.txt", , OutArchiveFormat.Zip, , CompressionMethod.Lzma, CompressionLevel.Ultra)
'
' --------
' Compress SFX:
' -------------
' SevenZipSharp.Compress_SFX("C:\File.txt")                           ' File will be compressed in the same dir.
' SevenZipSharp.Compress_SFX("C:\File.txt", "C:\Compressed\File.exe") ' File will be compressed in "C:\Compressed\".
' SevenZipSharp.Compress_SFX("C:\Folder\", , , , , , , "Password")    ' Folder will be compressed with the given password.
' SevenZipSharp.Compress_SFX("C:\File.txt", , SevenZipSharp_SFX_Module.Console, CompressionLevel.Fast)
'
' --------
' File Info:
' ----------
' MsgBox(SevenZipSharp.FileInfo("C:\Test.7z", SevenZip_Info.Format))
' For Each FileName In SevenZipSharp.FileInfo("C:\Test.zip", SevenZip_Info.Internal_Files_FileNames) : MsgBox(FileName) : Next
'
' ------------
' * Progress *
' ------------
' Dim WithEvents SevenZipProgress_Timer As New Timer
' Private Sub SevenZipProgress_Timer_Tick(sender As Object, e As EventArgs) Handles SevenZipProgress_Timer.Tick
'     ProgressBar1.Value = SevenZipSharp.SevenZip_Current_Progress
'     If ProgressBar1.Value = 100 Then
'         ' ...
'     End If
' End Sub
 
Imports SevenZip
 
Public Class SevenZipSharp
 
    Public Shared SevenZipDLL As String = "7z.dll"
    Public Shared SevenZip_Current_Progress As Short = 0
 
#Region " SevenZipSharp Extract "
 
    Public Shared Function Extract(ByVal InputFile As String, _
                                           Optional ByVal OutputDir As String = Nothing, _
                                           Optional ByVal Password As String = "Nothing") As Boolean
        SevenZip_Current_Progress = 0
 
        Try
            ' Set library path
            SevenZipExtractor.SetLibraryPath(SevenZipDLL)
 
            ' Create extractor and specify the file to extract
            Dim Extractor As SevenZipExtractor = New SevenZipExtractor(InputFile, Password)
 
            ' Specify the output path where the files will be extracted
            If OutputDir Is Nothing Then OutputDir = My.Computer.FileSystem.GetFileInfo(InputFile).DirectoryName
 
            ' Add Progress Handler
            AddHandler Extractor.Extracting, AddressOf SevenZipSharp_Extract_Progress
 
            ' Check for password matches
            If Extractor.Check() Then
                ' Start the extraction
                Extractor.BeginExtractArchive(OutputDir)
            Else
                Return False ' Bad password
            End If
 
            Return True ' File extracted
 
            Extractor.Dispose()
 
        Catch ex As Exception
            'Return False ' File not extracted
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
    Private Shared Sub SevenZipSharp_Extract_Progress(ByVal sender As Object, ByVal e As ProgressEventArgs)
        SevenZip_Current_Progress = e.PercentDone
        ' If e.PercentDone = 100 Then SevenZip_Current_Progress = 0
    End Sub
 
#End Region
 
#Region " SevenZipSharp Compress "
 
    Public Shared Function Compress(ByVal Input_DirOrFile As String, _
                                       Optional ByVal OutputFileName As String = Nothing, _
                                       Optional ByVal Format As OutArchiveFormat = OutArchiveFormat.SevenZip, _
                                       Optional ByVal CompressionMode As CompressionMode = CompressionMode.Create, _
                                       Optional ByVal CompressionMethod As CompressionMethod = CompressionMethod.Lzma, _
                                       Optional ByVal CompressionLevel As CompressionLevel = CompressionLevel.Normal, _
                                       Optional ByVal VolumeSize As Long = Nothing, _
                                       Optional ByVal Password As String = Nothing) As Boolean
        SevenZip_Current_Progress = 0
 
        Try
            ' Set library path
            SevenZipCompressor.SetLibraryPath(SevenZipDLL)
 
            ' Create compressor
            Dim Compressor As SevenZipCompressor = New SevenZipCompressor()
 
            ' Set compression parameters
            Compressor.CompressionLevel = CompressionLevel ' Archiving compression level.
            Compressor.CompressionMethod = CompressionMethod ' Compression method
            Compressor.ArchiveFormat = Format ' Compression file format
            Compressor.CompressionMode = CompressionMode ' Append files to compressed file or overwrite the compressed file.
            Compressor.DirectoryStructure = True ' Preserve the directory structure.
            Compressor.IncludeEmptyDirectories = True ' Include empty directories to archives.
            Compressor.ScanOnlyWritable = False ' Compress files only open for writing.
            Compressor.EncryptHeaders = False ' Encrypt 7-Zip archive headers
            Compressor.TempFolderPath = System.IO.Path.GetTempPath() ' Temporary folder path
            Compressor.FastCompression = False ' Compress as fast as possible, without calling events.
            Compressor.PreserveDirectoryRoot = True ' Preserve the directory root for CompressDirectory.
            Compressor.ZipEncryptionMethod = ZipEncryptionMethod.ZipCrypto ' Encryption method for zip archives.
            Compressor.DefaultItemName = "File.7z" ' Item name used when an item to be compressed has no name, for example, when you compress a MemoryStream instance
 
            If Not VolumeSize = Nothing Then
                If Format = OutArchiveFormat.SevenZip Then Compressor.VolumeSize = VolumeSize _
                Else Throw New Exception("Multi volume option is only avaliable for 7zip format")
            End If
 
            ' Get File extension
            Dim CompressedFileExtension As String = Nothing
            Select Case Compressor.ArchiveFormat
                Case OutArchiveFormat.SevenZip : CompressedFileExtension = ".7z"
                Case OutArchiveFormat.BZip2 : CompressedFileExtension = ".bz"
                Case OutArchiveFormat.GZip : CompressedFileExtension = ".gzip"
                Case OutArchiveFormat.Tar : CompressedFileExtension = ".tar"
                Case OutArchiveFormat.XZ : CompressedFileExtension = ".xz"
                Case OutArchiveFormat.Zip : CompressedFileExtension = ".zip"
            End Select
 
            ' Add Progress Handler
            AddHandler Compressor.Compressing, AddressOf SevenZipSharp_Compress_Progress
 
            ' Removes the end slash ("\") if given for a directory
            If Input_DirOrFile.EndsWith("\") Then Input_DirOrFile = Input_DirOrFile.Substring(0, Input_DirOrFile.Length - 1)
 
            ' Generate the OutputFileName if any is given.
            If OutputFileName Is Nothing Then _
                OutputFileName = (My.Computer.FileSystem.GetFileInfo(Input_DirOrFile).DirectoryName & "\" & (Input_DirOrFile.Split("\").Last) & CompressedFileExtension).Replace("\\", "\")
 
            ' Check if given argument is Dir or File ...then start the compression
            If IO.Directory.Exists(Input_DirOrFile) Then ' Is a Dir
                If Not Password Is Nothing Then
                    Compressor.CompressDirectory(Input_DirOrFile, OutputFileName, True, Password)
                Else
                    Compressor.CompressDirectory(Input_DirOrFile, OutputFileName, True)
                End If
            ElseIf IO.File.Exists(Input_DirOrFile) Then ' Is a File
                If Not Password Is Nothing Then
                    Compressor.CompressFilesEncrypted(OutputFileName, Password, Input_DirOrFile)
                Else
                    Compressor.CompressFiles(OutputFileName, Input_DirOrFile)
                End If
            End If
 
        Catch ex As Exception
            'Return False ' File not compressed
            Throw New Exception(ex.Message)
        End Try
 
        Return True ' File compressed
 
    End Function
 
    Private Shared Sub SevenZipSharp_Compress_Progress(ByVal sender As Object, ByVal e As ProgressEventArgs)
        SevenZip_Current_Progress = e.PercentDone
        ' If e.PercentDone = 100 Then SevenZip_Current_Progress = 0
    End Sub
 
#End Region
 
#Region " SevenZipSharp Compress SFX "
 
    Enum SevenZipSharp_SFX_Module
        Normal
        Console
    End Enum
 
    Public Shared Function Compress_SFX(ByVal Input_DirOrFile As String, _
                                       Optional ByVal OutputFileName As String = Nothing, _
                                       Optional ByVal SFX_Module As SevenZipSharp_SFX_Module = SevenZipSharp_SFX_Module.Normal, _
                                       Optional ByVal CompressionLevel As CompressionLevel = CompressionLevel.Normal, _
                                       Optional ByVal Password As String = Nothing) As Boolean
        SevenZip_Current_Progress = 0
 
        ' Create the .7z file
        Try
            ' Set library path
            SevenZipCompressor.SetLibraryPath(SevenZipDLL)
 
            ' Create compressor
            Dim Compressor As SevenZipCompressor = New SevenZipCompressor()
 
            ' Set compression parameters
            Compressor.CompressionLevel = CompressionLevel ' Archiving compression level.
            Compressor.CompressionMethod = CompressionMethod.Lzma ' Compression Method 
            Compressor.ArchiveFormat = OutArchiveFormat.SevenZip ' Compression file format
            Compressor.CompressionMode = CompressionMode.Create ' Append files to compressed file or overwrite the compressed file.
            Compressor.DirectoryStructure = True ' Preserve the directory structure.
            Compressor.IncludeEmptyDirectories = True ' Include empty directories to archives.
            Compressor.ScanOnlyWritable = False ' Compress files only open for writing.
            Compressor.EncryptHeaders = False ' Encrypt 7-Zip archive headers
            Compressor.TempFolderPath = System.IO.Path.GetTempPath() ' Temporary folder path
            Compressor.FastCompression = False ' Compress as fast as possible, without calling events.
            Compressor.PreserveDirectoryRoot = True ' Preserve the directory root for CompressDirectory.
            Compressor.ZipEncryptionMethod = ZipEncryptionMethod.ZipCrypto ' Encryption method for zip archives.
            Compressor.DefaultItemName = "File.7z" ' Item name used when an item to be compressed has no name, for example, when you compress a MemoryStream instance
 
            ' Add Progress Handler
            AddHandler Compressor.Compressing, AddressOf SevenZipSharp_Compress_Progress
 
            ' Removes the end slash ("\") if given for a directory
            If Input_DirOrFile.EndsWith("\") Then Input_DirOrFile = Input_DirOrFile.Substring(0, Input_DirOrFile.Length - 1)
 
            ' Generate the OutputFileName if any is given.
            If OutputFileName Is Nothing Then
                OutputFileName = (My.Computer.FileSystem.GetFileInfo(Input_DirOrFile).DirectoryName & "\" & (Input_DirOrFile.Split("\").Last) & ".tmp").Replace("\\", "\")
            Else
                OutputFileName = OutputFileName & ".tmp"
            End If
 
            ' Check if given argument is Dir or File ...then start the compression
            If IO.Directory.Exists(Input_DirOrFile) Then ' Is a Dir
                If Not Password Is Nothing Then
                    Compressor.CompressDirectory(Input_DirOrFile, OutputFileName, True, Password)
                Else
                    Compressor.CompressDirectory(Input_DirOrFile, OutputFileName, True)
                End If
            ElseIf IO.File.Exists(Input_DirOrFile) Then ' Is a File
                If Not Password Is Nothing Then
                    Compressor.CompressFilesEncrypted(OutputFileName, Password, Input_DirOrFile)
                Else
                    Compressor.CompressFiles(OutputFileName, Input_DirOrFile)
                End If
            End If
 
            ' Create the SFX file
            ' Create the SFX compressor
            Dim compressorSFX As SevenZipSfx = New SevenZipSfx(SfxModule.Default)
            ' Set SFX Module path
            If SFX_Module = SevenZipSharp_SFX_Module.Normal Then
                compressorSFX.ModuleFileName = ".\7z.sfx"
            ElseIf SFX_Module = SevenZipSharp_SFX_Module.Console Then
                compressorSFX.ModuleFileName = ".\7zCon.sfx"
            End If
            ' Start the compression
            ' Generate the OutputFileName if any is given.
            Dim SFXOutputFileName As String
            If OutputFileName.ToLower.EndsWith(".exe.tmp") Then
                SFXOutputFileName = OutputFileName.Substring(0, OutputFileName.Length - 4)
            Else
                SFXOutputFileName = OutputFileName.Substring(0, OutputFileName.Length - 4) & ".exe"
            End If
 
            compressorSFX.MakeSfx(OutputFileName, SFXOutputFileName)
            ' Delete the 7z tmp file
            Try : IO.File.Delete(OutputFileName) : Catch : End Try
 
        Catch ex As Exception
            'Return False ' File not compressed
            Throw New Exception(ex.Message)
        End Try
 
        Return True ' File compressed
 
    End Function
 
    Private Shared Sub SevenZipSharp_Compress_SFX_Progress(ByVal sender As Object, ByVal e As ProgressEventArgs)
        SevenZip_Current_Progress = e.PercentDone
        ' If e.PercentDone = 100 Then SevenZip_Current_Progress = 0
    End Sub
 
#End Region
 
#Region " SevenZipSharp FileInfo "
 
    Enum File_Info
        FileName
        Format
        Size_In_Bytes
        Internal_Files_FileNames
        Total_Internal_Files
    End Enum
 
    Public Shared Function FileInfo(ByVal InputFile As String, ByVal Info As File_Info)
 
        Try
            ' Set library path
            SevenZip.SevenZipExtractor.SetLibraryPath(SevenZipDLL)
 
            ' Create extractor and specify the file to extract
            Dim Extractor As SevenZip.SevenZipExtractor = New SevenZip.SevenZipExtractor(InputFile)
 
            ' Return info
            Select Case Info
 
                Case File_Info.FileName
                    Return Extractor.FileName
 
                Case File_Info.Format
                    Return Extractor.Format
 
                Case File_Info.Size_In_Bytes
                    Return Extractor.PackedSize
 
                Case File_Info.Total_Internal_Files
                    Return Extractor.FilesCount
 
                Case File_Info.Internal_Files_FileNames
                    Dim FileList As New List(Of String)
                    For Each Internal_File In Extractor.ArchiveFileData
                        FileList.Add(Internal_File.FileName)
                    Next
                    Return FileList
 
                Case Else
                    Return Nothing
 
            End Select
 
            Extractor.Dispose()
 
        Catch ex As Exception
            ' Return nothing
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
#End Region
 
End Class
 
#End Region
 

---

Una class para usar DotNetZip de forma sencilla para "comprimir/descomprimir/Crear un SFX" y mostrando el progreso en las operaciones.

#Region " DotNetZip Class "
 
' [ DotNetZip Functions ]
'
' // By Elektro H@cker
'
' Instructions :
' 1. Add a reference to "Ionic.Zip.dll".
'
' Examples :
'
' --------
' Extract:
' --------
' DotNetZip_Extract("C:\File.zip")
' DotNetZip_Extract("C:\File.zip", "C:\Folder\Test\", , "MyPassword")
'
' ---------
' Compress:
' ---------
' DotNetZip_Compress("C:\File.txt")
' DotNetZip_Compress("C:\Folder")
' DotNetZip_Compress("C:\Folder", "C:\Folder\Test.zip", , CompressionLevel.BestCompression, "Password", EncryptionAlgorithm.WinZipAes256)
'
' -------------
' Compress SFX:
' -------------
' DotNetZip_Compress_SFX("C:\File.txt")
' DotNetZip_Compress_SFX("C:\Folder")
'
' DotNetZip_Compress_SFX( _
'    "C:\File.txt", "C:\Test.exe", , CompressionLevel.BestCompression, _
'    "MyPassword", EncryptionAlgorithm.WinZipAes256, , , _
'    ExtractExistingFileAction.OverwriteSilently, , , , _
'    System.IO.Path.GetFileName("notepad.exe") _
' )
'
' ------------
' * Progress *
' ------------
' Dim WithEvents DotNetZip_Progress_Timer As New Timer
' Private Sub DotNetZip_Progress_Timer_Tick(sender As Object, e As EventArgs) Handles DotNetZip_Progress_Timer.Tick
'    Label1.Text = DotNetZip.CurrentFileName
'    ProgressBar1.Value = DotNetZip.DotNetZip_Current_Progress
'    If ProgressBar1.Value = 100 Then
'       ' ...
'   End If
' End Sub
 
Imports Ionic.Zip
Imports Ionic.Zlib
 
Public Class DotNetZip
 
#Region " DotNetZip Extract "
 
    Public Shared DotNetZip_Current_Progress As Short = 0
    Public Shared ZipFileCount As Long = 0
    Public Shared ExtractedFileCount As Long = 0
    Public Shared CurrentFileName As String = String.Empty
 
    Public Shared Function Extract(ByVal InputFile As String, _
                                       Optional ByVal OutputDir As String = Nothing, _
                                       Optional ByVal Overwrite As ExtractExistingFileAction = ExtractExistingFileAction.DoNotOverwrite, _
                                       Optional ByVal Password As String = "Nothing" _
                                     ) As Boolean
 
        DotNetZip_Current_Progress = 0
        ZipFileCount = 0
        ExtractedFileCount = 0
        CurrentFileName = String.Empty
 
        Try
            ' Create Extractor 
            Dim Extractor As ZipFile = ZipFile.Read(InputFile)
 
            ' Set Extractor parameters
            Extractor.Password = Password ' Zip Password
            Extractor.TempFileFolder = System.IO.Path.GetTempPath() ' Temp folder for operations
            Extractor.ZipErrorAction = ZipErrorAction.Throw
 
            ' Specify the output path where the files will be extracted
            If OutputDir Is Nothing Then OutputDir = My.Computer.FileSystem.GetFileInfo(InputFile).DirectoryName
 
            ' Add Progress
            AddHandler Extractor.ExtractProgress, AddressOf DotNetZip_Extract_Progress ' Progress Handler
            For Each Entry As ZipEntry In Extractor.Entries
                Application.DoEvents()
                ZipFileCount += 1
            Next ' Total bytes size of Zip
            ZipFileCount = Extractor.Entries.Count ' Total files inside Zip
 
            ' Start the extraction
            For Each Entry As ZipEntry In Extractor.Entries
                Application.DoEvents()
                Entry.Extract(OutputDir, Overwrite)
            Next
 
            ZipFileCount = 0 : ExtractedFileCount = 0 ' Reset vars
            Extractor.Dispose()
            Return True ' File Extracted
 
        Catch ex As Exception
            ' Return False ' File not extracted
            MsgBox(ex.Message)
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
    Private Shared Sub DotNetZip_Extract_Progress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)
 
        If e.EventType = ZipProgressEventType.Extracting_BeforeExtractEntry Then
            CurrentFileName = e.CurrentEntry.FileName
            ExtractedFileCount += 1
            DotNetZip_Current_Progress = ((100 / ZipFileCount) * ExtractedFileCount)
        ElseIf e.EventType = ZipProgressEventType.Extracting_AfterExtractEntry Then
            If ExtractedFileCount = ZipFileCount Then
                'MessageBox.Show("Extraction Done: " & vbNewLine & _
                '                             e.ArchiveName) ' Uncompression finished
            End If
        End If
 
    End Sub
 
#End Region
 
#Region " DotNetZip Compress "
 
    Public Shared Function Compress(ByVal Input_DirOrFile As String, _
                                      Optional ByVal OutputFileName As String = Nothing, _
                                      Optional ByVal CompressionMethod As CompressionMethod = CompressionMethod.None, _
                                      Optional ByVal CompressionLevel As CompressionLevel = CompressionLevel.Default, _
                                      Optional ByVal Password As String = Nothing, _
                                      Optional ByVal Encrypt_Password As EncryptionAlgorithm = EncryptionAlgorithm.None _
                                    ) As Boolean
 
        DotNetZip_Current_Progress = 0
        ZipFileCount = 0
        ExtractedFileCount = 0
        CurrentFileName = String.Empty
 
        Try
            ' Create compressor 
            Dim Compressor As ZipFile = New ZipFile
 
            ' Set compression parameters
            Compressor.CompressionLevel = CompressionLevel ' Archiving compression level.
            Compressor.CompressionMethod = CompressionMethod ' Compression method
            Compressor.Password = Password ' Zip Password
            Compressor.TempFileFolder = System.IO.Path.GetTempPath() ' Temp folder for operations
 
            If Password Is Nothing AndAlso Not Encrypt_Password = EncryptionAlgorithm.None Then _
                 Compressor.Encryption = EncryptionAlgorithm.None _
            Else Compressor.Encryption = Encrypt_Password ' Encryption for Zip password.
 
            ' Add Progress Handler
            AddHandler Compressor.SaveProgress, AddressOf DotNetZip_Compress_Progress
 
            ' Removes the end slash ("\") if is given for a directory.
            If Input_DirOrFile.EndsWith("\") Then Input_DirOrFile = Input_DirOrFile.Substring(0, Input_DirOrFile.Length - 1)
 
            ' Generate the OutputFileName if any is given.
            If OutputFileName Is Nothing Then _
                OutputFileName = (My.Computer.FileSystem.GetFileInfo(Input_DirOrFile).DirectoryName & "\" & (Input_DirOrFile.Split("\").Last) & ".zip").Replace("\\", "\")
 
            ' Check if given argument is Dir or File ...then start the compression
            If IO.Directory.Exists(Input_DirOrFile) Then ' It's a Dir
                Compressor.AddDirectory(Input_DirOrFile)
            ElseIf IO.File.Exists(Input_DirOrFile) Then ' It's a File
                Compressor.AddFile(Input_DirOrFile)
            End If
 
            Compressor.Save(OutputFileName)
            Compressor.Dispose()
 
        Catch ex As Exception
            ' Return False ' File not compressed
            MsgBox(ex.Message)
            ' Throw New Exception(ex.Message)
        End Try
 
        Return True ' File compressed
 
    End Function
 
    Private Shared Sub DotNetZip_Compress_Progress(ByVal sender As Object, ByVal e As SaveProgressEventArgs)
        Application.DoEvents()
 
        If e.EventType = ZipProgressEventType.Saving_Started Then
        ElseIf e.EventType = ZipProgressEventType.Saving_BeforeWriteEntry Then
            CurrentFileName = e.CurrentEntry.FileName ' Input filename to be compressed
            DotNetZip_Current_Progress = ((100 / e.EntriesTotal) * e.EntriesSaved + 1)
        ElseIf e.EventType = ZipProgressEventType.Saving_Completed Then
            DotNetZip_Current_Progress = 100
        End If
 
    End Sub
 
#End Region
 
#Region " DotNetZip Compress SFX "
 
    Public Shared Function Compress_SFX(ByVal Input_DirOrFile As String, _
                                      Optional ByVal OutputFileName As String = Nothing, _
                                      Optional ByVal CompressionMethod As CompressionMethod = CompressionMethod.None, _
                                      Optional ByVal CompressionLevel As CompressionLevel = CompressionLevel.Default, _
                                      Optional ByVal Password As String = Nothing, _
                                      Optional ByVal Encrypt_Password As EncryptionAlgorithm = EncryptionAlgorithm.None, _
                                      Optional ByVal Extraction_Directory As String = ".\", _
                                      Optional ByVal Silent_Extraction As Boolean = False, _
                                      Optional ByVal Overwrite_Files As ExtractExistingFileAction = ExtractExistingFileAction.InvokeExtractProgressEvent, _
                                      Optional ByVal Delete_Extracted_Files_After_Extraction As Boolean = False, _
                                      Optional ByVal Icon As String = Nothing, _
                                      Optional ByVal Window_Title As String = Nothing, _
                                      Optional ByVal Window_Style As SelfExtractorFlavor = SelfExtractorFlavor.WinFormsApplication, _
                                      Optional ByVal Command_Line_Argument As String = Nothing _
                                    ) As Boolean
 
        DotNetZip_Current_Progress = 0
        ZipFileCount = 0
        ExtractedFileCount = 0
        CurrentFileName = String.Empty
 
        Try
            ' Create compressor 
            Dim Compressor As ZipFile = New ZipFile
 
            ' Set compression parameters
            Compressor.CompressionLevel = CompressionLevel ' Archiving compression level.
            ' Compression method
            Compressor.Password = Password ' Zip Password
            Compressor.TempFileFolder = System.IO.Path.GetTempPath() ' Temp folder for operations
 
            If Password Is Nothing AndAlso Not Encrypt_Password = EncryptionAlgorithm.None Then
                Compressor.Encryption = EncryptionAlgorithm.None ' No encryption because no password.
                Compressor.CompressionMethod = CompressionMethod ' Set any compression method.
            Else
                Compressor.Encryption = Encrypt_Password ' Set Encryption for Zip password.
                Compressor.CompressionMethod = CompressionMethod.Deflate ' Set deflate method to don't destroy the SFX if AES encryption.
            End If
 
            Dim SFX_Options As New SelfExtractorSaveOptions()
            SFX_Options.DefaultExtractDirectory = Extraction_Directory
            SFX_Options.Quiet = Silent_Extraction
            SFX_Options.ExtractExistingFile = ExtractExistingFileAction.OverwriteSilently
            SFX_Options.RemoveUnpackedFilesAfterExecute = Delete_Extracted_Files_After_Extraction
            SFX_Options.Flavor = Window_Style
            SFX_Options.PostExtractCommandLine = Command_Line_Argument
            If Not Icon Is Nothing Then SFX_Options.IconFile = Icon
            If Not Window_Title Is Nothing Then SFX_Options.SfxExeWindowTitle = Window_Title
 
            ' Add Progress Handler
            AddHandler Compressor.SaveProgress, AddressOf DotNetZip_Compress_SFX_Progress
 
            ' Removes the end slash ("\") if is given for a directory.
            If Input_DirOrFile.EndsWith("\") Then Input_DirOrFile = Input_DirOrFile.Substring(0, Input_DirOrFile.Length - 1)
 
            ' Generate the OutputFileName if any is given.
            If OutputFileName Is Nothing Then _
                OutputFileName = (My.Computer.FileSystem.GetFileInfo(Input_DirOrFile).DirectoryName & "\" & (Input_DirOrFile.Split("\").Last) & ".exe").Replace("\\", "\")
 
            ' Check if given argument is Dir or File ...then start the compression
            If IO.Directory.Exists(Input_DirOrFile) Then ' It's a Dir
                Compressor.AddDirectory(Input_DirOrFile)
            ElseIf IO.File.Exists(Input_DirOrFile) Then ' It's a File
                Compressor.AddFile(Input_DirOrFile)
            End If
 
            Compressor.SaveSelfExtractor(OutputFileName, SFX_Options)
            Compressor.Dispose()
 
        Catch ex As Exception
            'Return False ' File not compressed
            Throw New Exception(ex.Message)
        End Try
 
        Return True ' File compressed
 
    End Function
 
    Private Shared Sub DotNetZip_Compress_SFX_Progress(ByVal sender As Object, ByVal e As SaveProgressEventArgs)
        Application.DoEvents()
 
        If e.EventType = ZipProgressEventType.Saving_Started Then
        ElseIf e.EventType = ZipProgressEventType.Saving_BeforeWriteEntry Then
            CurrentFileName = e.CurrentEntry.FileName ' Input filename to be compressed
            DotNetZip_Current_Progress = ((100 / e.EntriesTotal) * e.EntriesSaved + 1)
        ElseIf e.EventType = ZipProgressEventType.Saving_Completed Then
            DotNetZip_Current_Progress = 100
        End If
 
    End Sub
 
#End Region
 
End Class
 
#End Region