Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

EOF

Die Funktion liefert den Wert True, wenn das Ende der unter der im Parameter FileNumber angegebenen Datei erreicht ist. Das gilt fr die Zugriffsmodi Random, Binary oder Input.

Syntax:

EOF(<FileNumber>)

Parameter:

FileNumber (Datentyp Integer): Erwartet die Dateinummer der auf das Dateiende zu prfenden Datei.

Beispiele:

Die folgende Prozedur durchlauft eine Textdatei so lange, bis das Dateiende erreicht ist, und gibt dabei zeilenweise den Inhalt aus.

Public Sub EOFBeispiel()

    Dim strZeile As Variant

    Open "c:\test.txt" For Input As #1

    Do Input #1, strZeile

        Debug.Print strZeile

    Loop Until EOF(1) = True

    Close #1

End Sub

© 2003-2015 André Minhorst Alle Rechte vorbehalten.