Public Sub WriteData(ByVal F As Integer, ByVal sData As String)
  Dim nLen As Long
 
  nLen = Len(sData)
  Put #F, nLen
  Put #F, sData
End Sub
 
Public Function ReadData(ByVal F As Integer) As String
  Dim nLen As Long
  Dim sData As String
 
  Get #F, , nLen
  sData = Space$(nLen)
  Get #F, , sData
 
  ReadData = sData
End Function

If Len(Dir$(sFile, vbNormal)) > 0 Then Kill sFile
F = FreeFile
Open sFile For Binary As #F
' speichere auch Textname und Informationen,datum
WriteData F, form_hauptprogramm.Text3.Text
WriteData F, form_hauptprogramm.Text2.Text
WriteData F, form_hauptprogramm.Text1.Text
 
With Form_karteikarten.roListBox1
  WriteData F, CStr(.ListCount)
  For i = 1 To .ListCount
    WriteData F, .List(i)
  Next i
End With
Close #F

F = FreeFile
Open sFile For Binary As #F
' name und informationen einlesen
form_hauptprogramm.Text3.Text = ReadData(F)
form_hauptprogramm.Text2.Text = ReadData(F)
form_hauptprogramm.Text1.Text = ReadData(F)
 
nCount = Val(ReadData(F))
For i = 1 To nCount
  Form_karteikarten.roListBox1.AddItem , ReadData(F)
Wend
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de