PAth/File Access Error

[Static]

trying to run the following code on an EXE (Actually Excel)
and Im getting the following error
Error 75
Path/File Access Error??

if I take off the Access Read Write etc...it works...until it hits PUT

any clues?

[Highlight=VB]
Private Sub ReverseByteNumbers(ByVal FileName As String)
Dim K As Long, byteArr() As Byte, FL As Integer

FL = FreeFile
Open FileName For Binary Access Read Write Lock Read Write As FL

ReDim byteArr(LOF(FL) - 1)
Get FL, , byteArr

For K = 0 To UBound(byteArr)
byteArr(K) = Not byteArr(K)
Next K

Put FL, 1, byteArr

Close FL
End Sub
[vbcoce]

[dglienna]

You are operating sequentially. If you want to write from the beginning just close it and open it again. If you want to use direct access, you need the word RANDOM, and you must write all records the same length, and specify the Len parameter when opening the file. The least amount of work required on your part woud be just to close the file momentarily.

[pnish]

I just ran your code on several different files and it worked every time (including excel.exe). Are you trying to do this across a network?

I would say with 99% certainty that you don't have the appropriate file access permissions to do what you're trying to do. That is basically what the error message is trying to tell you.

[Static]

hmmm...

i have full permission... (Its XP home)
and its not over a network.....

I try again tonight....

[pnish]

OK. Here's a simple test to establish whether it's a permissions thing. Try and delete excel.exe (make a copy first).