FreeFile-Funktion

Wichtig :  Dieser Artikel wurde maschinell übersetzt. Bitte beachten Sie den Haftungsausschluss. Die englische Version des Artikels ist als Referenz hier verfügbar: hier.

Hinweis : Die Funktion, die Methode, das Objekt oder die Eigenschaft, die bzw. das in diesem Thema erläutert wird, ist deaktiviert, falls der Ausdrucksdienst in Microsoft Jet im geschützten Modus (Sandbox Mode) ausgeführt wird. In diesem Modus wird die Auswertung von potenziell unsicheren Ausdrücken verhindert. Weitere Informationen zum geschützten Modus erhalten Sie, wenn Sie in der Hilfe nach "sandbox mode" suchen.

Gibt eine ganze Zahl, die den nächsten Dateinummer zur Verwendung verfügbar von der Open -Anweisung darstellt.

Syntax

FreeFile[(rangenumber)]

Das Argument optional Bereichsnummer ist eine Variante aus, die im Bereich gibt an, aus der die nächste freie Dateinummer zurückgegeben werden soll. Angeben einer 0 (Standard), um eine Dateinummer im Bereich 1 – 255 (einschließlich) zurückgegeben. Geben Sie eine 1 ein, um eine Dateinummer innerhalb des Bereichs 256-511 zurückzugeben.

Hinweise

Verwenden Sie FreeFile, wenn Sie eine Dateinummer angeben möchten, die bisher noch nicht verwendet wurde.

Beispiel

Hinweis : Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.

In diesem Beispiel wird die FreeFile-Funktion verwendet, um die nächste verfügbare Dateinummer zurückzugeben. Es werden fünf Dateien für die Ausgabe innerhalb der Schleife geöffnet und in jede einige Beispieldaten geschrieben.

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

Hinweis : Haftungsausschluss für maschinelle Übersetzungen: Dieser Artikel wurde mithilfe eines Computersystems und ohne jegliche Bearbeitung durch Personen übersetzt. Microsoft bietet solche maschinellen Übersetzungen als Hilfestellung für Benutzer ohne Englischkenntnisse an, damit Sie von den Informationen zu Produkten, Diensten und Technologien von Microsoft profitieren können. Da es sich bei diesem Artikel um eine maschinelle Übersetzung handelt, enthält er möglicherweise Fehler in Bezug auf (Fach-)Terminologie, Syntax und/oder Grammatik.

Teilen Facebook Facebook Twitter Twitter E-Mail E-Mail

War diese Information hilfreich?

Sehr gut. Noch anderes Feedback?

Was können wir verbessern?

Vielen Dank für Ihr Feedback!

×