dim Fname as string ' the path to the file
dim Raw as string
dim lines() as string
dim i as long,upper as long
Open Fname For Binary As #1
Raw = String$(LOF(1), 0)'set a buffer to the same size as the file
'Read the entire file in one operation and close it
Get #1, 1, Raw$
Close #1
lines = split(raw,vbnewline)
raw = nothing
for i = 0 to upper - 1
raw = raw & lines(i) & vbnewline
next i
Open Fname For Binary As #1
put #1, raw
Close #1
hope this helps....
Troy Williams B.Eng.
fenris@hotmail.com