Strict


' Code

Function GetDrives:TList(Extra:Int=0)
   ?Win32
      Extern "Win32"
         Function GetLogicalDriveStrings(Length:Int, Buffer:Byte Ptr)="GetLogicalDriveStringsA@8"
         Function GetDriveType(Name$z)="GetDriveTypeA@4"
      End Extern

      Local MaxSize:Int
      Local Buf:Byte Ptr
      Local StringList:TList
      Local Name:String
      Local DriverType:Int
      
      MaxSize    = 1024
      Buf        = MemAlloc(MaxSize)
      StringList = New TList
      
      GetLogicalDriveStrings(MaxSize, Buf)
      
      For Local i:Int = 0 Until MaxSize
         If Buf[i] = 0
            Name = Name.Trim()
            If Name
               DriverType = GetDriveType(Name)
               
               Select Extra
                  Case 0
                     If DriverType=3
                        StringList.AddLast(Name)
                     EndIf
                  Case 1
                     If DriverType=5
                        StringList.AddLast(Name)
                     EndIf
                     
                  Case 2
                     If DriverType=2
                        StringList.AddLast(Name)
                     EndIf
                     
                  Default
                     If DriverType=3
                        StringList.AddLast(Name)
                     EndIf
               End Select
               
            EndIf
            Name = ""   
         Else
            Name:+Chr(Buf[i])
         EndIf
      Next
      
      MemFree(Buf)
      
      Return StringList
   ?
   Return Null
End Function



'Sample

Local Partionen:TList = GetDrives(0)
Local CDLaufwerke:TList = GetDrives(1)
Local DisLaufwerke:TList = GetDrives(2)


Print "Partionen"
For Local Name:String = EachIn Partionen
   Print Name
Next



Print "CD Laufwerke"
For Local Name:String = EachIn CDLaufwerke
   Print Name
Next



Print "Disketten Laufwerke"
For Local Name:String = EachIn DisLaufwerke
   Print Name
Next

For i = 65 To 90
   If FileType(Chr(i)+":\") = 2 Then Print(Chr(i)+":\")
Next