Código: Seleccionar todo
Private Function WriteFileOffSet(sFilePath As String,byteData as byte, Optional iOffSet As Long = 0)
Dim aBytes() As Byte
Open sFilePath For Binary As #1
ReDim aBytes(LOF(1) - 1)
Get #1, , aBytes
aBytes(iOffSet) = byteData
Seek #1, 1
Put #1, , aBytes
Close #1
End Function
Saludos