<< Click to Display Table of Contents >> Close (Anweisung)

Close [[#]Dateinummer]

Schließt eine beziehungsweise alle offenen Dateien.

Dateinummer ist die in der Open-Anweisung vergebene Nummer. Wird keine Dateinummer angegeben, werden alle derzeit geöffneten Dateien geschlossen.

Siehe auch: Open

Beispiel:

Sub Make3Files

 Dim i, FNum, Fname

 For i = 1 To 3

         FNum = FreeFile                   ' Freien Dateizeiger holen

         FName = "TEST" & FNum

         Open FName For Output As Fnum     ' Datei öffnen

         Print #i, "Dies ist Test #" & i   ' In Datei schreiben

         Print #i, "Eine weitere Zeile"

 Next i

 ' Alle Dateien schließen

 Close

End Sub