Waarde lezen uit een textbestand (.ini)

[Radjesh Klauke]

Plaats op Form1 een CommandButton
Plaats op Form1 een Label
Plaats een .txt op C:\ met als naam "test"
Plaats in de test.txt: Dit is een test...

Code: Selecteer alles

Private Sub Command1_Click()
On Error GoTo Err
Dim TempStr as String
    Open "E:\R.A.D. 2005 3rd Edition Update\Update.reg" For Input As #1
    Line Input #1, TempString
    Label1.Caption = TempString
    Close #1
Exit Sub

Err:
   MsgBox "Bestand niet gevonden."
End Sub