Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

GetLogicalDrives

Uploader:Mitgliedhhr
Datum/Zeit:28.09.2019 09:26:19

' https://docs.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getlogicaldrives
#Include "windows.bi"
Print "Vorhandene Laufwerke:"
Dim As Long i
For i=0 To 25
   If Bit(GetLogicalDrives,i) Then
      Print Chr(i+65);
   End If
Next i
Print
Sleep
End