In diesem Beispiel wird die FreeFile-Funktion verwendet, um die nächste verfügbare Dateinummer zurückzugeben. In der Schleife werden fünf Dateien zur Ausgabe geöffnet und mit Beispieldaten beschrieben.
Dim Index1, Dateinummer For Index1 = 1 To 5 ' Schleife 5 mal ' durchlaufen. Dateinummer = FreeFile ' neue Datei-Nr. ' bestimmen. Open "TEST" & Index1 For Output As #Dateinummer ' Dateiname ' erstellen. Write #Dateinummer, "Beispieldaten." ' Text ausgeben. Close #Dateinummer ' Datei schließen. Next Index1