Private Sub Command5_Click()
Dim WinDir As String
WinDir = Environ$("WinDir")
If Right$(WinDir, 1) <> "\" Then WinDir = WinDir & "\"
Shell WinDir & "explorer.exe " & Chr(34) & "" & Chr(34), 1
' da sollte zwischen zwei "" ein Path sein, aber ich weiß nicht welches, dass 
' unabhängig von der Anzahl der Partitionen Browser zeigt nur Inhalt der CD und 
' nicht des Computers
EndSub