XProfan

Def @GetLogicalDrives(0) !"KERNEL32","GetLogicalDrives"
Declare Drives&,I%,D$
Let drives&=@GetLogicalDrives()

While Lt(i%,26)

    If TestBit(drives&,i%) wenn Laufwerk vorhanden...

        Let d$=@Chr$(@Add(i%,65));":"
        ADDSTRING d$

    endif

    inc I%

wend

@ListBox$("Laufwerke",2)