XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Verzeichnisse: Explorer mit voreingestelltem Pfad starten
PRFellow-Vorlage
Autor: Thomas Hölzer
Explorer mit voreingestelltem Pfad starten
Parameter: gültiger Pfadname
Def ShellExecuteEx(1) !SHELL32,ShellExecuteExA
Declare SEI#,verb#,file#

Proc ExploreFolder

    Parameters file$
    Dim SEI#,60
    Clear SEI#
    Dim verb#,8
    Dim file#,Add(Len(file$),1)
    String file#,0=Upper$(file$)
    String verb#,0=explore
    Long SEI#,0=60
    Long SEI#,8=GetActiveWindow()
    Long SEI#,12=verb#
    Long SEI#,16=file#
    Long SEI#,28=1
    ShellExecuteEx(SEI#)
    Dispose verb#
    Dispose file#
    Dispose SEI#

EndProc

Beispiel
Cls  gültiges Fenster muß sein
ExploreFolder C:
WaitInput