i have this code to write to a binary file.
VB Code:
  1. Private Sub doSave(saveFile As String)

  2.     Dim NewPos As Long

  3.     

  4.     Open saveFile For Binary As #1

  5.     Put #1, 1, "[Destination Folder] = " & SaveLoc & Chr(0)

  6.     NewPos = 1 + Len("[Destination Folder] = " & SaveLoc & Chr(0))

  7.     

  8.     Put #1, NewPos, "[Output Format] = " & SaveType & Chr(0)

  9.     NewPos = NewPos + Len("[Output Format] = " & SaveType & Chr(0))

  10.     

  11.     Put #1, NewPos, "[Extension Used] = " & SaveExt & Chr(0)

  12.     NewPos = NewPos + Len("[Extension Used] = " & SaveExt & Chr(0))

  13.     

  14.     Put #1, NewPos, "[Number of Files] = " & LstFiles.ListCount & Chr(0)

  15.     NewPos = NewPos + Len("[Number of Files] = " & LstFiles.ListCount & Chr(0))

  16.     

  17.     If ChkDelSource.Value = 0 Then

  18.         Put #1, NewPos, "[Delete Source] = False" & Chr(0)

  19.         NewPos = NewPos + Len("[Delete Source] = False" & Chr(0))

  20.     Else

  21.         Put #1, NewPos, "[Delete Source] = True" & Chr(0)

  22.         NewPos = NewPos + Len("[Delete Source] = True" & Chr(0))

  23.     End If

  24.     

  25.     Put #1, NewPos, "[List of Files] = " & Chr(0)

  26.     NewPos = NewPos + Len("[List of Files] = " & Chr(0))

  27.     

  28.     For tmpCnt = 0 To LstFiles.ListCount - 1

  29.         Put #1, NewPos, LstFiles.List(tmpCnt) & Chr(0)

  30.         NewPos = NewPos + Len(LstFiles.List(tmpCnt) & Chr(0))

  31.     Next tmpCnt

  32.     Close #1

  33. End Sub

and i read from the file in this way
VB Code:
  1. Open bsFile For Binary As #FF

  2.     cnt = 1

  3.     aCnt = 1

  4.     ReDim Preserve tLine(aCnt) As String

  5.     While Not EOF(1)

  6.         Get #FF, cnt, SomeChar

  7.         If SomeChar = 0 Then

  8.             aCnt = aCnt + 1

  9.             ReDim Preserve tLine(aCnt) As String

  10.         Else

  11.             tLine(aCnt) = tLine(aCnt) & Chr(SomeChar)

  12.         End If

  13.         cnt = cnt + 1

  14.     Wend

  15.     Close #FF

and this is the result i get.


[Destination Folder]

[Output Format]

[Extension Used]

[Number of Files] =

[Delete Source] = Fa

[List of Files]
L
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\add.
M
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\base.
P
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\caption.
N
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\close.
P
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\convert.
T
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\destination.
M
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\file.
M
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\logo.
Q
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\minimize.
O
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\Option.
O
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\output.
M
C:\Documents and Settings\Administrator\My Documents\My Pictures\bc\save.bmp
what mistake am i making?

thanx for u're help.