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 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.

Notitiepictogram

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