Hi everyone:
I am trying to read from a file one byte at a time because I need to take part of the existing bytes in a file and then save it in a new one. I am including here how I am trying to do it but it seems it does not work ????


Private Sub Command2_Click()
Dim size As Long
Dim myByteArray() As Byte
Dim Temporary As Byte


Open "c:\test.wav" For Input As #1
For i = 1 To i = 1000
Input #1, i, Temporary
myByteArray(i) = Temporary
Next
Close #1

Open "c:\test1.wav" For Output As #2
For w = 1 To w = 1000
Write #2, w, myByteArray(w)
Next
Close #2


End Sub


**** any suggestions will be very appreciated !!!!

Thanks

Rene