flere informationer på samme linie

Hvis jeg må give dig et tip så lav det med en Type Rec

'----------------- Form1 -----------------
Option Explicit

Private Type SETUPREC
      tPath1 As String
      tPath2 As String
      tPath3 As String
End Type

Private Type FILEREC
      rType As String * 3
      fPath As SETUPREC
End Type

Private Setup As FILEREC

'Load fra C:\Setup.cfg
Private Sub Form_Load()
  Open "C:\Setup.cfg" For Binary As #1
    Get #1, , Setup
  Close #1

  If Setup.rType = "CFG" Then
    Text1(0).Text = Setup.fPath.tPath1
    Text1(1).Text = Setup.fPath.tPath2
    Text1(2).Text = Setup.fPath.tPath3
  End If
End Sub

'Save i C:\Setup.cfg
Private Sub Form_Unload(Cancel As Integer)
Setup.rType = "CFG"
Setup.fPath.tPath1 = Text1(0).Text
Setup.fPath.tPath2 = Text1(1).Text
Setup.fPath.tPath3 = Text1(2).Text

  Open "C:\Setup.cfg" For Binary As #1
    Put #1, , Setup
  Close #1
End Sub
'----------------- Form1 -----------------

men hvis du vil bruge din eget forslag.

'----------------- Form1 -----------------
Option Explicit

Dim test(2) As String

Private Sub Form_Load()
  Open "C:\test.txt" For Input As #1
    Input #1, test(0), test(1), test(2)
  Close #1
Text1.Text = test(0) & " " & test(1) & " " & test(2)
End Sub

Private Sub Form_Unload(Cancel As Integer)
  test(0) = "test0"
  test(1) = "test1"
  test(2) = "test2"
  Open "C:\test.txt" For Output As #1
    Print #1, test(0); ",", test(1); ",", test(2); ","
  Close #1
End Sub
'----------------- Form1 -----------------

jeg kan ikke få det til at virke :(

hvad er det du ikke kan få til at virke?

nej jeg kan stadig ikke få det til at virke... :(

det kode du har skrevet ... den melder om fejl når den loader filen igen :(

oki, så prøv sådan, og hvis der er en fejl så sig lige hvor den er.

'----------------- Form1 -----------------
Option Explicit

Dim test(2) As String
Dim strPath As String

Private Sub Form_Load()
strPath = "C:\test.txt"

  If Dir(strPath) > "" Then
    Open strPath For Input As #1
      Input #1, test(0), test(1), test(2)
    Close #1
    Text1.Text = test(0) & " " & test(1) & " " & test(2)
  End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
  test(0) = "test5"
  test(1) = "test6"
  test(2) = "test7"
  Open strPath For Output As #1
    Print #1, test(0); ",", test(1); ",", test(2); ","
  Close #1
End Sub
'----------------- Form1 -----------------

OK tak for hjælpen