Open-instructie

Opent een gegevenskanaal.

Syntaxis:

Open BestandsNaam As String [Voor Modus] [Access IOMode] [Beveiligd] As [#]BestandsNummer As Integer [Len = DatasetLength]

Parameters:

Bestandsnaam: Naam en pad van het bestand dat u wenst te openen. Indien u probeert om een bestand te lezen dat niet bestaat (Toegang krijgen = Lezen), verschijnt er een foutbericht. Indien u probeert om naar een bestand te schrijven dat niet bestaat (Toegang krijgen = Schrijven), verschijnt er een foutbericht.

Modus: Trefwoord dat de bestandsmodus specificeert. Geldige waarden: Toevoegen (toevoegen aan een sequentieel bestand), Binair (toegang tot de gegevens kan verkregen worden door bytes door gebruik te maken van Get en Put), Invoegen (opent het gegevenskanaal om te lezen), Uitvoer (opent het gegevenskanaal om te schrijven), en Random (bewerkt relatieve bestanden).

IOmodus: Sleutelwoord dat het toegangstype definieert. Geldige waarden: Read (alleen lezen), Write (alleen schrijven), Read Write (beide).

Beveiligd: Sleutelwoord dat de beveiligingsstatus van een bestand na het openen definieert. Geldige waarden: Shared (bestand kan worden geopend door andere applicaties), Lock Read (bestand is beschermd tegen lezen), Lock Write (bestand is beschermd tegen schrijven), Lock Read Write (weigert bestandstoegang).

Bestandsnummer: Elke Integer tussen 0 en 511 dat het nummer van een vrij gegevenskanaal aangeeft dat later kan worden gebruikt om toegang te krijgen tot het bestand met verschillende opdrachten. Het bestandsnummer moet worden bepaald vlak vóór de Open-instructie met behulp van de FreeFile-functie.

DatasetLength: Stel voor Random-toegang bestanden de lengte van de records in.

Een bestand moet worden geopend met het Open statement vóór de bestandsinhoud kan worden gewijzigd. Als u probeert een bestand te openen dat al geopend is verschijnt een foutboodschap.

Voorbeeld:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Output As #iNumber

    Print #iGetal, "Dit is een tekstregel"

    Print #iGetal, "Dit is een andere tekstregel"

    Close #iNumber

    iNumber = Freefile

    Open aFile For Input As iNumber

    While Not eof(iNumber)

        Line Input #iNumber, sLine

        If sLine <>"" Then

            sMsg = sMsg & sLine & chr(13)

        End If

    Wend

    Close #iNumber

    MsgBox sMsg

End Sub