In diesem Beispiel wird die Reset-Anweisung verwendet, um alle geöffneten Dateien zu schließen und den Inhalt aller Dateipuffer auf den Datenträger zu schreiben. Hinweis: Die Variant-Variable Dateinummer kann sowohl als Zeichenfolge als auch als Zahl verwendet werden.
Dim Dateinummer
For Dateinummer = 1 To 5 ' 5 Schleifendurchläufe.
' Datei zur Ausgabe öffnen. Dateinummer wird an die Zeichenfolge
' TEST für den Dateinamen angehängt, ist jedoch eine Zahl, die dem
' Zeichen # folgt.
Open "TEST" & Dateinummer For Output As #Dateinummer
Write #Dateinummer, "Hallo Welt" ' Daten in Datei schreiben.
Next Dateinummer
Reset ' Dateien schließen und
' auf Datenträger speichern.