File Patch.bas

Attribute VB_Name = "PatchStrom"
'File Information
Public Function FileInfo(FlNm As String) As String
    FileInfo = "Filenme: " & FlNm
    FileInfo = FileInfo & vbCrLf & "FileSize: " & FileSizeBytes(FlNm) & " bytes"
    FileInfo = FileInfo & vbCrLf & "FileModified: " & FileLastModified(FlNm)
End Function

'FileInformation Sub Function
Public Function FileLastModified(FlNm As String) As String
    FileLastModified = FileDateTime(FlNm)
End Function
'FileInformation Sub Function
Public Function FileSizeBytes(FlNm As String) As String
    FileSizeBytes = FileLen(FlNm)
End Function


Public Function ReadByte(FileName As String, HexOffset As String) As String
    Dim FF As Integer
    Dim bye As Integer
    
    FF = FreeFile
    Open FileName For Binary As #FF
        Get #FF, HexOffset, bye
    Close #FF
    ReadByte = bye 'Hex(Int(Asc(bye)))
End Function


Public Function WriteByte(FileName As String, HexOffset As String, CharCode As Long) As Boolean
   Dim byt As String
   Dim iint As Integer
   byt = Chr(CharCode)
    Open FileName For Binary As #1
        Put #1, HexOffset, byt
    Close #1
    byt = CharCode
    MsgBox ReadByte(FileName, HexOffset) & " :" & byt
    If ReadByte(FileName, HexOffset) = byt Then
        WriteByte = True
    Else
        WriteByte = False
    End If
End Function