VBA-Beispiel 095
mail schreiben
mail schreiben

per VBA Ordner im Explorer öffnen

Per VBA einen bestimmten Ordner im Explorer öffnen.
Sub Explorer_starten()
'bestimmten Ordner im Explorer öffnen
                   'Pfad anpassen
Shell "Explorer.exe C:\Windows", vbNormalFocus

End Sub


Sub Explorer_2()
'andere Schreibweise
Dim Pfad As String

Pfad = "C:\Windows"

Shell "Explorer.exe " & Pfad, vbNormalFocus

End Sub


Sub Explorer_mit_Verzeichnisbaum()

'im Explorer links den Verzeichnisbaum anzeigen
' /e
Shell "Explorer.exe /e, C:\Windows", vbNormalFocus

End Sub


Sub Explorer_Root()

'Rootverzeichnis
'es kann kein höherer Ordner als der angegebene ausgewählt werden
' /Root
Shell "Explorer.exe /e, /Root, C:\Windows", vbNormalFocus

End Sub


Sub Explorer_und_Datei()

'Dateiauswahl aber Datei nicht öffnen
' /select
Shell "Explorer.exe /select, C:\Windows\test.doc", vbNormalFocus

'Datei öffnen
'Shell "Explorer.exe C:\Windows\test.doc", vbNormalFocus

End Sub

Download:   vba095.zip