ايران ويج

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

سلام.

کد: 
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

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

one hacker alone

Payman62

one hacker alone