#Region " Round Bytes "
 
    ' [ Round Bytes Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Round_Bytes(1023))             ' Result: 1.023 Bytes
    ' MsgBox(Round_Bytes(80060, 1))         ' Result: 78,2 KB
    ' MsgBox(Round_Bytes(60877579))         ' Result: 58,06 MB
    ' MsgBox(Round_Bytes(4485888579))       ' Result: 4,18 GB
    ' MsgBox(Round_Bytes(20855564677579))   ' Result: 18,97 TB
    ' MsgBox(Round_Bytes(990855564677579))  ' Result: 901,18 PB
    ' MsgBox(Round_Bytes(1987464809247272)) ' Result: 1,77 PB
 
    Enum xByte As Long
        kilobyte = 1024L
        megabyte = 1024L * kilobyte
        gigabyte = 1024L * megabyte
        terabyte = 1024L * gigabyte
        petabyte = 1024L * terabyte
    End Enum
 
    Private Function Round_Bytes(ByVal bytes As Long, _
                                  Optional ByVal decimals As Integer = 2 _
                                  ) As String
 
        Select Case bytes
 
            Case Is >= xByte.petabyte
                Return String.Format("{0} PB", (Convert.ToDouble(bytes) / xByte.petabyte).ToString("n" & decimals))
 
            Case Is >= xByte.terabyte
                Return String.Format("{0} TB", (Convert.ToDouble(bytes) / xByte.terabyte).ToString("n" & decimals))
 
            Case Is >= xByte.gigabyte
                Return String.Format("{0} GB", (Convert.ToDouble(bytes) / xByte.gigabyte).ToString("n" & decimals))
 
            Case Is >= xByte.megabyte
                Return String.Format("{0} MB", (Convert.ToDouble(bytes) / xByte.megabyte).ToString("n" & decimals))
 
            Case Is >= xByte.kilobyte
                Return String.Format("{0} KB", (Convert.ToDouble(bytes) / xByte.kilobyte).ToString("n" & decimals))
 
            Case Is >= 0
                Return String.Format("{0} Bytes", Convert.ToDouble(bytes).ToString("n0"))
 
            Case Else
                Return String.Empty
 
        End Select
 
    End Function
 
#End Region

• https://github.com/ElektroStudios/ShellInfo/tree/master/Solution

• https://github.com/ElektroStudios/ShellInfo/tree/master/Deployment/Installer

 "NetConnectionStatus=2 and AdapterType='" + adapterType + "'")

"WHERE NetConnectionStatus='2' and AdapterType='" + adapterType + "'")

        Dim QueryFormat As String = _
            String.Format( _
            "SELECT {0} FROM Win32_NetworkAdapter WHERE AdapterType = '{1}' And NetConnectionStatus = '{2}'", _
            "AdapterType,NetConnectionID,NetConnectionStatus", _
            "Ethernet 802.3", _
            "2" _
            )
 
        Dim Query As New ObjectQuery(QueryFormat)
        Dim Searcher As New ManagementObjectSearcher(Query)
 
        For Each result As ManagementObject In Searcher.Get
 
 
            MsgBox(String.Format(" NetConnectionID: {1}{0} NetConnectionStatus: {2}{0} AdapterType: {3}{0}", _
                                 Environment.NewLine & Environment.NewLine, _
                                 result.Item("NetConnectionID"), _
                                 result.Item("NetConnectionStatus"), _
                                 result.Item("AdapterType")))
 
            Try
                result.InvokeMethod("Disable", Nothing)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
 
        Next

string QueryFormat = string.Format("SELECT {0} FROM Win32_NetworkAdapter WHERE AdapterType = '{1}' And NetConnectionStatus = '{2}'", "AdapterType,NetConnectionID,NetConnectionStatus", "Ethernet 802.3", "2");
 
ObjectQuery Query = new ObjectQuery(QueryFormat);
ManagementObjectSearcher Searcher = new ManagementObjectSearcher(Query);
 
 
foreach (ManagementObject result in Searcher.Get) {
 
	Interaction.MsgBox(string.Format(" NetConnectionID: {1}{0} NetConnectionStatus: {2}{0} AdapterType: {3}{0}", Environment.NewLine + Environment.NewLine, result.Item("NetConnectionID"), result.Item("NetConnectionStatus"), result.Item("AdapterType")));
 
	try {
		result.InvokeMethod("Disable", null);
	} catch (Exception ex) {
		MessageBox.Show(ex.Message);
	}
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================

START EXPLORER %cadena%

Explorer.exe /select,"%cadena%"

Set "Cadena=C:\Carpeta con espacios"

Explorer.exe %Cadena%

Explorer.exe C:\Carpeta con espacios

1. C:\Carpeta
2. con
3. espacios

Explorer.exe "%cadena%"

Explorer.exe "C:\Carpeta con espacios"

C:\Carpeta con espacios

x

%x%

%t:~0,%x%%

x%

@Echo OFF
setlocal enabledelayedexpansion
set /A "x=0"
set "t=Bienvenido"
set /a "x+=1"
set "m=!t:~0,%x%!"
echo %m%
Pause&Exit

@Echo OFF
set /A "x=0"
set "t=Bienvenido"
set /a "x+=1"
call set "m=%%t:~0,%x%%%"
echo %m%
Pause&Exit