[VB] Como abrir el explorador de windows

[exofolio]

Quisiera saber como abrir el explorer que no sea con la shell

Si no que la shell me permita esta linea

Shell("%windir%\explorer.exe " & unidad, 1)

ya que si le pongo el %windir% no lo reconoce

[Rakzo-Fimbres]

ahora que lo dices tengo un codigo que anda por algun rumbo de mi pc que te pueda servir.. no recuerdo muy bien de quien es, pero al parecer es de ranefi

Código:

Private Declare Function GetWindowsDirectory Lib "kernel32" _
            Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
            ByVal nSize As Long) As Long


Private Sub Command1_Click()
            Dim Bufer As String
            Dim RutaWindows As String
           
            Bufer = String(200, Chr$(0))

            RutaWindows = Left$(Bufer, GetWindowsDirectory(Bufer, Len(Bufer)))
           
            Me.Caption = RutaWindows & "\explorer.exe"
            Shell (Me.Caption)
End Sub

agregas un boton y en el caption te aparecerá la ruta de windows, ahi lo adaptas a tu manera..

PD: este post estaba en el foro vb 6 y ahora fue cambiado a .net 

Bueno si es en .net tengo este codigo que te podria servir.. solo agregas un boton e insertas el codigo:

Código:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim winDir As String = System.IO.Path.GetDirectoryName _
            (Environment.SystemDirectory)
        Shell(winDir & "\explorer.exe")
    End Sub

Ahí lo adaptas a tu manera..
Salu2 y espero que te sirva