(Win32) Ermitteln der vorhandenen Laufwerksbuchstaben

Für allgemeine Fragen zur Programmierung mit PureBasic.
real
Beiträge: 468
Registriert: 05.10.2004 14:43

(Win32) Ermitteln der vorhandenen Laufwerksbuchstaben

Beitrag von real »

Hi (nochmal),

wie bekomme ich raus, welche Laufwerksbuchstaben "gemounted" bzw. unter Windows verfügbar sind?

Gruß
René
Benutzeravatar
Danilo
-= Anfänger =-
Beiträge: 2284
Registriert: 29.08.2004 03:07

Beitrag von Danilo »

cya,
...Danilo
"Ein Genie besteht zu 10% aus Inspiration und zu 90% aus Transpiration" - Max Planck
Benutzeravatar
DataMiner
Beiträge: 220
Registriert: 10.10.2004 18:56

Beitrag von DataMiner »

Code: Alles auswählen

DefType.l Serial, type, i
DefType.s Lfwrk, FileSystem, VolName

For i=65 To 90
  Lfwrk=Chr(i)+":\" 
  type =GetDriveType_(Lfwrk)
  FileSystem = Space(256)
  VolName= Space(256)
  GetVolumeInformation_(@Lfwrk, @VolName, 255, @Serial, 0, 0, @FileSystem, 255)
  Select type
    Case 0
      Debug Lfwrk+" The drive type cannot be determined."
    Case 2
      Debug Lfwrk+" = DRIVE_REMOVABLE, "+VolName+", "+FileSystem+", "+  Hex(Serial)
    Case 3
      Debug Lfwrk+" = DRIVE_FIXED, "+VolName+", "+FileSystem+", "+  Hex(Serial)
    Case 4
      Debug Lfwrk+" = DRIVE_REMOTE, "+VolName+", "+FileSystem+", "+  Hex(Serial)
    Case 5
      Debug Lfwrk+" = DRIVE_CDROM, "+VolName+", "+FileSystem+", "+  Hex(Serial)
    Case 6
      Debug Lfwrk+" =  DRIVE_RAMDISK,	"+VolName+", "+FileSystem+", "+  Hex(Serial)
  EndSelect
Next
Antworten