Module
Inhoud
Index 🔎︎

# 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 te openen bestand. 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. 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