FreeFile-Funktion

Gibt einen Integer-Wert zurück, der die nächste Dateinummer darstellt, die von der Open-Anweisung verwendet werden kann.

Syntax

FreeFile [ (Rangenumber) ]

Das optionale Argument für die Bereichsnummer ist eine Variante, mit deren Hilfe ein Bereich angegeben wird, aus dem die nächste freie Dateinummer zurückgegeben wird. Geben Sie eine 0 (Standard) an, um eine Dateinummer im Bereich 1–255 (einschließlich) zurückzugeben. Geben Sie eine 1 an, um eine Dateinummer im Bereich 256–511 zurückzugeben.

Hinweise

Verwenden Sie FreeFile zum Bereitstellen einer noch nicht verwendeten Dateinummer.

Beispiel

In diesem Beispiel wird die FreeFile -Funktion zum Zurückgeben der nächsten verfügbaren Dateinummer verwendet. Dabei werden in der Schleife fünf Dateien für die Ausgabe geöffnet, und in die einzelnen Dateien werden Beispieldaten geschrieben.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    FileNumber = FreeFile    ' Get unused file
        ' number.
    Open "TEST" & MyIndex For Output As #FileNumber    ' Create file name.
    Write #FileNumber, "This is a sample."    ' Output text.
    Close #FileNumber    ' Close file.
Next MyIndex

Siehe auch

• Funktionen (Visual Basic for Applications)

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.