XProfan

Italia

Um das Sommerloch zu füllen, mal was per Nostalgiker - besonders die API DlgDirSelectComboBoxEx, die u.a. auch erkennt ob eine File oder ein Verzeichnis gefunden wurde, potuto aber in Verbindung mit FindFirst$ oder der Message LB_DIR noch ganz interessant sein....
Kompilieren Markieren Separieren

WINDOWSTYLE 31
WINDOWTITLE "Dateibrowser"
WINDOW 0,0-640,440
DEF @DlgDirListComboBox(5) !"User32","DlgDirListComboBoxA"
DEF @DlgDirSelectComboBoxEx(4) !"User32","DlgDirSelectComboBoxExA"
Declare Liste&,Suchstring$,TEXT&,Auswahl#,DLGDIR&
LET LISTE&=@Control("ComboBox","",$40000+$40000000+$10000000+$200000+$100000,20,40,300,300,%HWND,2111,%HINSTANCE)
LET TEXT&=@Control("STATIC","",$40000000+$10000000,20,20,300,20,%HWND,2112,%HINSTANCE)
LET Suchstring$="*.*"
@DlgDirListComboBox(%HWND,@addr(Suchstring$),2111,2112,$4000+1+2+4+$10+$20)

While 0=0

    Getmessage

    IF %LastMessage=515

        DIM Auswahl#,500
        LET DLGDIR&=@DlgDirSelectComboBoxEx(%HWND,Auswahl#,500,2111)

        IF DLGDIR&=1

            CHDIR @string$(Auswahl#,0)

        ENDIF

        Dispose Auswahl#
        @DlgDirListComboBox(%HWND,@addr(Suchstring$),2111,2112,$4000+1+2+4+$10+$20)

    endif

wend