Explorer in einem bestimmten Verzeichnis starten

Wenn man in Word ein Dokument mit »Datei | Öffnen« sucht, hat man mit dem Word-Dateimanager zwar ein einigermaßen umfangreiches, aber trotzdem manchmal umständlich zu bedienendes Hilfsmittel zur Verfügung. Auch das Festlegen eines Dokumentpfades in »Extras | Optionen | Dateiablage« ist nicht unbedingt eine Erleichterung, denn in den meisten Fällen befinden sich unterschiedliche Arten von Dokumenten auch in unterschiedlichen Verzeichnissen.

Mit dem untenstehenden Makro ist es möglich, jedes beliebige Verzeichnis direkt in einem Explorer-Fenster aufzurufen. Beim Start des Makros, das Sie am besten als Schaltfläche in einer Symbolleiste einrichten, erscheint eine Dialogbox, in der Sie festlegen können, welches Verzeichnis in einem Explorer-Fenster geöffnet werden soll. In diesem Fenster laden Sie mit einem Doppelklick auf die gewünschte Word-Datei das Dokument in die Textverarbeitung Word.

Sie können das Listing auch um beliebige weitere Verzeichnisse ergänzen. Achten Sie jedoch darauf, daß Sie dann auch die Höhe der Dialogbox in der Zeile »Begin Dialog BenutzerDialog 320, 130, "Verzeichnis öffnen"« anpassen müssen.

Der Wert für die Höhe der Dialogbox ist aktuell 130 und muß für eine weitere Schaltfläche um 30 erhöht werden ebenso wie der zweite Wert der Zeile »PushButton Horizontale Position, Vertikale Position, Breite, Höhe, "Beschriftung"«. Außer einem weiteren Button benötigen Sie auch für jede Schaltfläche in der Dialogbox die beiden Zeilen »Case Nummer.« und »Shell "Explorer Pfadangabe"«.
Axel Schlüter

Makro zum Öffnen von Verzeichnissen in einem Explorer-Fenster

Sub MAIN

On Error Goto Ende

Begin Dialog BenutzerDialog 320, 130, “Verzeichnis öffnenö

Text 12, 13, 111, 13, “Verzeichnisse:ö

PushButton 9, 40, 300, 21, “Briefeö

PushButton 9, 70, 300, 21, “Rechnungenö

PushButton 9, 100, 300, 21, “Angeboteö

CancelButton 209, 7, 100, 21

End Dialog

Dim Dlg As BenutzerDialog

Auswahl = Dialog(Dlg)

Select Case Auswahl

Case 1

Shell “Explorer C:\Dokumente\Briefeö

Case 2

Shell “Explorer C:\Dokumente\Rechnungenö

Case 2

Shell “Explorer C:\Dokumente\Angeboteö

Case Else

End Select

Ende:

End Sub