Freedatei-FunktionFreeFile function

Gibt eine ganze Zahl zurück, die die nächste Dateinummer darstellt, die von der Open -Anweisung verwendet werden können.Returns an Integer representing the next file number available for use by the Open statement.

SyntaxSyntax

Freedatei [(Bereichsnummer)]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.The optional rangenumber argument is a Variant that specifies the range from which the next free file number is to be returned. Geben Sie eine 0 (Standard) an, um eine Dateinummer im Range–1 255, einschließlich zurückzugeben.Specify a 0 (default) to return a file number in the range 1–255, inclusive. Geben Sie eine 1 an, um eine Dateinummer im Range–256 511 zurückzugeben.Specify a 1 to return a file number in the range 256–511.

BemerkungenRemarks

Verwenden Sie FreeFile zum Bereitstellen einer noch nicht verwendeten Dateinummer.Use FreeFile to supply a file number that is not already in use.

BeispielExample

In diesem Beispiel wird die FreeFile -Funktion zum Zurückgeben der nächsten verfügbaren Dateinummer verwendet.This example uses the FreeFile function to return the next available file number. Dabei werden in der Schleife fünf Dateien für die Ausgabe geöffnet, und in die einzelnen Dateien werden Beispieldaten geschrieben.Five files are opened for output within the loop, and some sample data is written to each.

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 auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.