Het schrijven van bestanden

Om een bestand te kunnen lezen moet het natuurlijk eerst geschreven zijn. Daarom gaan we een programma maken om een bestand aan te maken en te vullen met gegevens.

Start Visual Studio en maak een console-toepassing met de naam console004. Breid de module als volgt uit:

Module module1
  Sub Main()
    Dim voornaam, achternaam As Integer
    voornaam = FreeFile()
    achternaam = FreeFile()
    OpenFile(voornaam, "D:\console004a.txt", OpenMode.Output)
    OpenFile(achternaam, "D:\console0004b.txt", OpenMode.Output)
    PrintLine(voornaam, "Jan")
    PrintLine(voornaam, "Peter")
    PrintLine(achternaam, "Jansen")
    PrintLine(achternaam, "Pietersen")
    PrintLine(achternaam, "Klaassen")
    PrintLine(voornaam, "Klaas")
    FileClose(voornaam)
    FileClose(achternaam)
  End Sub
End Module

Zoals je ziet, kun je meerdere bestanden tegelijk openen en afwisselend naar verschillende bestanden schrijven. Door gebruik te maken van FreeFile() hoef je je geen zorgen te maken om de bestandsnummers.