TurboPL Referenz

GetDrive

Top  Previous  Next

Syntax

GetDrive(Laufwerk: Integer): Integer

Kategorie

Basisfunktion

Erklärung

Liefert den Status eines Laufwerks. Dabei gilt 0=A:, 1=B: usw.

Der Rückgabewert ist:

0 : Laufwerkstyp nicht bestimmbar

1 : Laufwerk nicht vorhanden/kein Root-Verzeichnis

2 : Wechselmedium/Diskettenlaufwerk

3 : fest eingebautes Medium/lokale Festplatte

4 : logisches Laufwerk/Netzwerklaufwerk

5 : CD-Laufwerk

6 : Ramdisk

Beispiel

if GetDrive(1) <= 1
       Message("Laufwerk B: nicht vorhanden.");
end

Zur Ermittlung der Laufwerksnummer läßt sich folgende Prozedur verwenden:

procedure GetDriveNo(LaufwerksBuchstabe: String): Integer
       vardef LWNummer: Integer;
       LWNummer := Asc(Upper(LaufwerksBuchstabe)) - Asc("A") + 1
       if (LWNummer < 0) or (LWNummer > 25)
               return -1 ..ungültig
       else
               return LWNummer
       end
endproc

Siehe auch

GetDir, Asc, Upper