how to use this function

[kirubagari]

Option Explicit

Public Sub ReWrite_Open_File(ByVal FileNo As Long)
Dim FileSize As Long, Buffer() As Byte
' PART 1: Read the file.
FileSize = LOF(FileNo) ' Determine how large the file is (in bytes).
ReDim Buffer(1 To FileSize) ' Set our buffer to that length.
Get #FileNo, 1, Buffer() ' Grab the entire file's data into the array
' PART 2
' If you plan to change the data, this is where it would happen.
Beep

' PART 3: Write the file back.
If MsgBox("Write data back to the file?", vbYesNo) = vbYes Then
Put #FileNo, 1, Buffer() ' Write the data back to the file.
End If
End Sub

Is it the way i call the above function.I want to open the file from the floopy disk.I do no how to use this function.After the output popup in immedite window how to rewrite the data into floop disk.Open "a:\bonding.bin " For Binary As mHandle




Private Sub cmd_click_Click()

open "a:\bonding.bin"

call ReWrite_Open_File (ByVal FileNo As Long)

End Sub

[Killer42]

I'm afraid I didn't understand the question.

But I did gather that something isn't working. For starters, you could try this...

Open "a:\bonding.bin" For Binary Access Read Write Lock Write As mHandle
Rewrite_Open_File mHandle

Oh, and by the way, it's a "floppy" disk.

[danp129]

Also, you're not setting FileNo as anything before trying to pass it here:

call ReWrite_Open_File (ByVal FileNo As Long)

personally though, I would get rid of the parameter in the Rewrite sub and just set FileNo to freefile after declaring FileNo.

Public Sub ReWrite_Open_File()
Dim FileSize As Long, Buffer() As Byte
FileNo=freefile

[Killer42]

I think you missed the point there, Dan. The sub is supposed to work with an already-open file. FreeFile returns the next number available to open a file. Slight problem, methinks.

[danp129]

OIC that now!...........

[Killer42]

OIC that now!...........

Mind you, I haven't had a chance to check whether it actually works. It was only thrown together as a demonstration of the reading and writing techniques.