Wert=FILETYPE (Dateiname$)


Beschreibung
Diese Funktion ermittelt, ob eine bestimmte Datei existiert. Zusätzlich kann man auch erfahren, ob es sich um eine Datei oder um ein Verzeichnis handelt. Bei einer Datei wird 1 zurückgeliefert. Wenn es aber ein Verzeichnis ist, dann wird 2 zurückgeliefert.


Parameter
Dateiname = gültiger Dateiname (evtl. mit Pfad)


Rückgabewert
0 = Datei existiert nicht
1 = Datei existiert
2 = Verzeichnis existiert


Beispiel
Dieses Programm zeigt den Dateiinhalt im Verzeichnis C:\

Verz=READDIR("C:\")
REPEAT
   Datei$=NEXTFILE$(Verz)
   IF Datei$= THEN EXIT
   IF FILETYPE("C:\"+Datei$) = 2 THEN
      PRINT "Ordner:" + Datei$
   ELSE
      PRINT "Datei:" + Datei$
   END IF
FOREVER
CLOSEDIR Verz
PRINT
PRINT "-Ende-"


Siehe auch
FILESIZE, READDIR