Skriv til file, Load fra file

Private Sub Form_Load()
Dim TextLine As String

  Open "c:\windows\databog\log.txt" For Input As #1
    Line Input #1, TextLine
  Close #1

  lbl_Navn.Caption = TextLine
End Sub

eller sådan..


Private Sub Form_Load()
Dim intLine As Integer
Dim TextLine As String

  Open "c:\windows\databog\log.txt" For Input As #1
    Do While Not EOF(1)
      intLine = (intLine + 1)
      Line Input #1, TextLine
      Select Case intLine
            Case 1
              lbl_Navn1.Caption = TextLine
            Case 2
              lbl_Navn2.Caption = TextLine
            Case 3
              lbl_Navn3.Caption = TextLine
            Case 4
              lbl_Navn4.Caption = TextLine
      End Select
    Loop
  Close #1

End Sub

vil lige prøve at se på det

nej den gæmmer ikke i filen

nej den læser filen ;)

Den skal jo også gæmme i filen

Open "c:\test.txt" For Output Shared As #1
  Print #1, "noget tekst"
Close #1

open "c:\windows\databog\log.txt" For Output Shared As #1

Sådan så tilføjer den..

Open "c:\windows\databog\log.txt" For Append As #1
  Print #1, "noget tekst"
Close #1

det var godt nok lidt mange point du brugte på det sjov.. vil du ikke have nogle af dem igen??

tras > vil du ikke have nogle point tilbage igen??

hvad mener du

Nej tak jeg har nok

okææ men så siger jeg da tak for point :)