| Open ... For Binary, Close, Get, Put |
| |
| |
| Dim gFileNum As Integer | |
| |
| Private Sub cmdCreate_Click() | |
| gFileNum = FreeFile | |
| Open "Test.bin" For Binary As gFileNum | Datei für binären Zugriff erzeugen. Wird kein Pfad genannt, |
| Close gFileNum | wird die Datei im selben Pfad wie dieses Programm |
| End Sub | angelegt. |
| |
| Private Sub cmdOpen_Click() | |
| Dim Puffer As String | |
| gFileNum = FreeFile | |
| Open "Test.bin" For Binary As gFileNum | Datei für binären Zugriff öffnen. |
| Puffer = String(100, " ") | Puffer-Variable mit 100 Leerstellen vorbelegen. |
| Get gFileNum, 1, Puffer | Liest genau 100 Stellen ab 1. Stelle ein. |
| Me.txtWrite = Puffer | Inhalt der Puffervariable in Textfeld übergeben. |
| Close gFileNum | |
| End Sub | |
| |
| Private Sub cmdWrite_Click() | |
| Dim Puffer As String | |
| Puffer = InputBox("Bitte Test-String eingeben:") | |
| gFileNum = FreeFile | |
| Open "Test.bin" For Binary As gFileNum | |
| Put #gFileNum, 1, Puffer | Schreibt Inhalt der Puffervariable an angegebene |
| Close gFileNum | Byte-Position. |
| End Sub |  |
| |
| Private Sub cmdClose_Click() | |
| Unload Me | |
| End Sub | |
| |
| |
| |
| |
| . |
| |
zurück