In diesem Beispiel werden verschiedene Einsatzmöglichkeiten der Open-Anweisung veranschaulicht, um Ein-/Ausgabeoperationen auf Dateien durchzuführen.
Der folgende Code öffnet die Datei DATEI1 für sequentielle Eingaben.
Open "DATEI1" For Input As #1 ' Datei schließen, bevor sie in einem anderen Modus erneut ' geöffnet wird. Close #1
Dieses Beispiel öffnet die Datei im Modus Binary und ausschließlich für Schreiboperationen.
Open "DATEI1" For Binary Access Write As #1 ' Datei schließen, bevor sie in einem anderen Modus erneut ' geöffnet wird. Close #1
Das folgende Beispiel öffnet die Datei mit wahlfreiem Zugriff. Die Datei enthält Datensätze des benutzerdefinierten Typs Datensatz.
Type Datensatz ' Datentyp definieren.
Kennung As Integer
Name As String * 20
End Type
Dim DSatz1 As Datensatz ' Variable deklarieren.
Open "DATEI1" For Random As #1 Len = Len(DSatz1)
' Datei schließen, bevor sie in einem anderen Modus erneut
' geöffnet wird.
Close #1
Dieses Codebeispiel öffnet die Datei für sequentielle Ausgaben. Alle Prozesse können Lese- und Schreiboperationen auf der Datei ausführen.
Open "DATEI1" For Output Shared As #1 ' Datei schließen, bevor sie in einem anderen Modus erneut ' geöffnet wird. Close #1
Dieses Codebeispiel öffnet die Datei im Modus Binary für Lesezugriffe. Andere Prozesse können die Datei nicht lesen.
Open "DATEI1" For Binary Access Read Lock Read As #1