WriteOffSet Función
Publicado: 30 Jul 2014, 17:35
Una simple función(la misma con la que ayude en un tema) para escribir en un offset de un archivo.
Saludos
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 FunctionSaludos