[سوال] خواندن و نوشتن یک فایل باینری به حالت اولیه

[one hacker alone]

با یاد خدا
با سلام
من به دنبال روشی برای خواندن فایل هستم که وقتی ما یه فایل باینری رو میخونیم و داخل یه تکست میریزیم بتونیم با ذخیره محتویات اون تکست به صورت باینری به فایل اولیه برسیم
میشه دوستان راهنمایی کنن

[Payman62]

سلام.

کد:

Private Function ReadFromFile(strAdrsOfFile As String) As String
Dim strData As String
    Open strAdrsOfFile For Binary As #1
        strData = Space(FileLen(strAdrsOfFile))
        Get #1, , strData
    Close #1
    ReadFromFile = strData
End Function

Private Sub WriteToFile(strAdrsOfFile As String, strData As String)
    On Error Resume Next
    Kill strAdrsOfFile
    RmDir strAdrsOfFile
    Open strAdrsOfFile For Binary As #1
        Put #1, , strData
    Close #1
End Sub

[one hacker alone]

ممنون دوست عزیز اما این کدی که شما برای خواندن فایل نوشتین زمانی بکار میاد که ما فایل رو بخونیم و بعد دوباره بنویسیم
اما من وقتی محتویات فایل رو در یک textbox ریختم فقط عبارت MZ... ریخته میشه
من میخوام فایل رو به نحوی بخونم که اگه اون رو داخل یک فایل متنی ریختم و به شما دادم شما بتونید اون رو به حالت اول برگردونید یعنی دوباره ذخیره کنید به همون فایل اجرایی