Technische Tips und Tricks: Directories

B. Kühnast

Diesen Monat geht es um eine wichtige
Sache: um Directories. Turbo-Basic-User
mögen diese Tatsache nur mit einem Lä-
cheln quittieren, sie haben einen eige-
nen Befehl dafür. Bei anderen Sprachen
gibt es den aber nicht, und deshalb
wird es im folgenden erklärt.

Das Ganze sollte sich eigentlich auf
alle Sprachen umschreiben lassen. Die
Schritte im einzelnen:

Wir benötigen einen kleinen Puffer.
Dazu reservieren wir uns einen String:

     DIM D$(40)

Dann Öffnen wir einen Kanal zum Lesen
von Diskette:

     OPEN #1,6,0,"D:*.*"

Die 6 bedeutet "Directory lesen", der
String steht für die Dateiauswahl.
Setzen wir hier ein "*.BAS" ein, werden
alle Dateien mit dem Extender "BAS"
gezeigt. Statt "D:" kann man natürlich
auch "D8:" einsetzen, um von der Ram-
disk zu lesen.

Jetzt laden wir eine Zeile:

     INPUT #1,D$

und zeigen sie an:

     PRINT D$

Das ganze so lange, bis ein Fehler auf-
tritt. Dieser wird mit TRAP abgefangen.

Wie gesagt, das sollte sich in allen
Sprachen realisieren lassen, Quick-User
sollten da z. B. keine Probleme haben.

Als Extra-Trick ist folgendes möglich:

Statt auf "D:*.*" zu öffnen, benutzt
man folgende Zeile:

     OPEN #1,6,0,"D:.FREE"

Als String erhält man dann nur die Zei-
le mit der Angabe der freien Bytes.

Als Beispiel findet ihr die Programme
DIR.BAS und FREE.BAS auf der Rückseite.

CU!