XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Verzeichnisse: Gängige Windows-Verzeichnisse ermitteln
REM FRAGE:      Wie ermittle ich gängige Windows Verzeichnisse?
REM AUTOR:      cnesm
REM HOMEPAGE:   www.cnesm.de.vu
REM HINWEISS:   Testen und Nutzen der Quelltexte auf eigene Gefahr
REM HINWINGUNG: Freie Nutzung der Quelltexte [freiwillige Erwähnung des Autors]
REM Ermittelt gängige Windows Verzeichnisse
DEF GetTempPath(2) ! KERNEL32,GetTempPathA
Window 0,0-400,300
Declare Path#
Dim Path#,255
GetTempPath(255,Path#)
Print String$(Path#,0)
Print $SysPath
Print $WinPath
Waitkey
REM Ermittelt spezielle Windows Verzeichnisse [Andreas Miethe]
DEF @GSFP(4) ! Shell32,SHGetSpecialFolderPathA
Struct PfadInfo=PfadInf$(260)
Declare x%
Declare pfad#
Declare Liste&
Dim pfad#,155
Window 0,0-400,300
Liste&=Createlistbox(%HWnd,,10,10,370,250)

WHILELOOP 80

    @GSFP(%hwnd,pfad#,x%,0)

    If gt$(String$(Pfad#,0),)

        AddString(Liste&,Add$(add$(x%, ),String$(Pfad#,0)))

    Endif

    inc x%

Wend

waitkey