Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0176: Explorer mit vorgegebenem Pfad starten

 von 

Beschreibung 

Ein Explorer-Fenster lässt sich auch mit einem vorgegebenen Pfad starten.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

GetWindowsDirectoryA (GetWindowsDirectory), ShellExecuteA (ShellExecute)

Download:

Download des Beispielprojektes [2,14 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Textfeld "Text1"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

Private 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
        
Private Declare Function GetWindowsDirectory Lib "kernel32" _
        Alias "GetWindowsDirectoryA" (ByVal lpBuffer As _
        String, ByVal nSize As Long) As Long

Const SW_RESTORE As Long = &H9&

Private Sub Form_Load()
  Dim Win$, Result&
    Win = Space(256)
    Result = GetWindowsDirectory(Win, Len(Win))
    Text1.Text = Left$(Win, Result)
End Sub

Private Sub Command1_Click()
  Call OpenExplorer(CStr(Text1.Text))
End Sub

Private Sub OpenExplorer(ByVal Path$)
  Path = Left$(Path, Len(Path) - Len(Right$(Path, _
               Len(Dir(Path)))))
  Call ShellExecute(Me.hwnd, "explore", Path, 0, 0, SW_RESTORE)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 8 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von Wolfgang am 04.10.2007 um 14:56

Geht ja viiiel einfacher:

Das bei den Eigenschaften eintragen, wo jetzt c:\ steht, einfach das gewünschte Verzeichnis eintragen.

%SystemRoot%\explorer.exe /n, /e, c:\

Gruß

Kommentar von Florian Rittmeier am 21.07.2005 um 16:56

Hallo,

die Kommandozeilenparameter für explorer.exe hat Microsoft unter http://support.microsoft.com/default.aspx?kbid=130510 veröffentlicht.

Gruß Florian

Kommentar von Stefan Hegemann am 29.10.2004 um 22:12

Schon, wie kommt man an die Parameter dran?
Bisher kenne Ich nur /e und /n. Gibt's auch einen Parameter, der das "Suche nach Dateien und Ordnern..." Fenster öffnet?

Kommentar von Daniel am 15.05.2004 um 20:01

Es geht auch einfacher einfach:

Shell("Explorer.exe C:\Windows" Oder einen anderen Pfad eingeben.

Kommentar von NessunDorma am 05.08.2002 um 11:06

jo oder halt so :D @pawel

Kommentar von Ruru am 02.08.2002 um 16:26

Geht auch wunderbar ohne GetWindowsDirectory,
vieleicht liegt es aber auch an Win2000, weiss es nicht.

Kommentar von Headfire am 07.06.2002 um 22:26

Woher bekommt man diese Parameter?
Und wie kann man per Programm abfragen ob im Explorer ein bestimmter Ordner geöffnet wurde?

Kommentar von Pawel am 01.04.2001 um 22:59

Einfacher geht es mit Shell und richtigen Parametern:
Shell "EXPLORER /n,/e," & Path$