Tipp 1.16 - Ordner öffnen

Wie kann ich einen Ordner im Explorer öffnen?

Mit dieser Funktion können Sie einen Ordner im Explorer öffnen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: GetActiveWindow, ShellExecute

Beispiel:

Option Explicit
 
Public Declare Function GetActiveWindow _
    Lib "user32" () As Long
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
 
Public Function OpenDirectory( _
                sDirectory As String) _
                As Long
  '// -----------------------------------------------------
  '// Methode:   | Öffnet einen Ordner
  '// -----------------------------------------------------
  '// Parameter: | sDirectory = Pfad des Ordners
  '// -----------------------------------------------------
  '// Rückgabe:  | Long-Wert der API-Funktionsrückgabe
  '// -----------------------------------------------------
  '// Beispiel:  | OpenDirectory App.Path
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  On Error Resume Next
  OpenDirectory = ShellExecute(GetActiveWindow(), _
      "Open", _
      sDirectory, _
      0&, _
      0&, _
      vbNormalFocus)
End Function


Zurück Tipp 1.15 - Langen Dateipfad ermitteln | Inhalt | Tipp 1.17 - Existiert Laufwerk Weiter