EnableExplicit

Procedure.s GetDriveType(Drive$)
  Protected result
  
  result=GetDriveType_(Drive$+":\")
  Select result
    Case 2
      ProcedureReturn "Diskettenlaufwerk"
    Case 3
      ProcedureReturn "Festplatte"
    Case 4
      ProcedureReturn "Netzwerk"
    Case  5
      ProcedureReturn "CD-Rom"
    Case  6
      ProcedureReturn "Ram-Disk"
  EndSelect
  ProcedureReturn "-"
EndProcedure

MessageRequester("","Laufwerktyp: "+GetDriveType("C"),0)