VB-Homepage Tipp 203

Explorer mit vorgegebenen Pfad starten (W95 + NT4)

Wenn es Sie auch nervt, das der Win95 bzw. WinNT Explorer ständig in ein und dem selben Verzeichnis startet, egal in welchem Verzeichnis Sie beim letzten schließen des Explorers gestanden haben, dann ist dieser Tipp genau das richtige für Sie.

Sie benötigen zuerst einmal ein neues Projekt und ein Modul, in das Sie folgendes eingeben

Allgemein/Deklarationen

Const SW_NORMAL = 1
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWDEFAULT = 10
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOWNORMAL = 1

Const HWND_DESKTOP = 0
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Desweiteren geben Sie im Modul folgendes an.
Sub main()
pfadangabe = InputBox("Welcher Pfad soll geöffnet werden ?", "Explorerstart", "C:\TEMP")
r = ShellExecute(HWND_DESKTOP, "Open", "explorer.exe", "/e," & pfadangabe, 0&, SW_SHOWNORMAL)
End
End Sub

Wie Sie bemerken werden, ist dieser Tipp so aufgebaut, das man das Startverzeichnis beim Start angeben muß, es ist aber genau so denkbar, dieses kleine Programm im Hintergrund laufen zu lassen (Siehe Tipp
Programmfortsetzung erst nach Anwendungsende ) und beim Beenden des Explorers das aktuelle Verzeichnis zu ermitteln, in eine Datei zu schreiben, bei Wiederaufruf diese Angabe auszulesen und den Explorer mit diesem Verzeichnis zu starten.
Dann können Sie sich die Abfrage sparen.
Für unseren Test soll aber diese Art reichen.
Für die eigentliche Aktion benötigen Sie in Ihrem Projekt keine Form.
Gestartet wird die MAIN Prozedur. Wenn Sie allerdings Ihrem Programm ein Icon zuordnen möchten, belassen Sie die Form im Projekt, sonst geht's nicht.


Tipp-Download

Quelle :

Zurück zur Übersichtsseite