Replace existing file with save

[gismo]

I am passing a new or existing file to the sub listed below. If the file exists I want to replace it with the new data while keeping the original file name. It currently appends data to an existing file with each call to the sub. Thanks in advance

Sub SaveToFile(FileNameOrNumber As Variant)
    Dim var As Variant, fnum As Integer
    
    ' store contents into a variant
    var = Contents()
    ' store it to a file
    If VarType(FileNameOrNumber) = vbString Then
        fnum = FreeFile
        Open FileNameOrNumber For Binary As #fnum
        Put #fnum, , var
        Close #fnum
    Else
        Put #fnum, , var
    End If
End Sub

 

[gpalmer711]

Try Changing

Open FileNameOrNumber For Binary As #fnum

to

Open FileNameOrNumber For Output As #fnum

Greg Palmer

----------------------------------------
Any feed back is appreciated.

 

[gismo]

I need binary file format, I believe Ouput only supports an ascii file format.

gismo

 

[Golom]

First get rid of the file if it exists and then open it for binary

If Dir(FileNameOrNumber) <> &quot;&quot; Then Kill FileNameOrNumber
fnum = FreeFile
Open FileNameOrNumber For Binary As #fnum

 

[gismo]

No error and no luck. I watch the file size increase with every save. I don't understand how that could not work.

gismo

 

[Golom]

Nor do I. What does &quot;FileNameOrNumber&quot; contain when the Sub is invoked?

 

[gismo]

I was just checking that. It contains a string that is the full path and file name such as &quot;d:\mystuff\myfile.jnk&quot;

 

[vbrocks]

Try this ......
To write

Open &quot;file.bin&quot; For Binary Access Write As #1
Put #1, , Text1.Text
Close #1

To read

Dim data
Open &quot;file.bin&quot; For Binary Access Read As #1
Input #1, data
Text1.Text = data
Close #1

 

[gismo]

I'm just an idiot sometimes(more times than I want to admit). Contents() was growing in size everytime I saved ttat was the reason my file size grew with each save. I wrongfully assumed that the file was appending. Thank's anyways guys and yeah I gave myself a kick.

gismo