نوشتن فایل باینری

[mahdi321]

سلام
من یه برنامه دارم واسه کار با فایل هست
میتونم فایل باینری رو بخونم ولی وقتی مینویسم تبدیل به همون فایل اصلی تبدیل نمیشه
یه دونه Text Box که MultiLine=True و 2 تا Command

کد php:

Option Explicit
Dim a As String
Dim TxtFile As String
Private Const Chunk = 800
Private Sub Command1_Click()
Open "C:\Documents and Settings\Monster\Desktop\Garena Nokarim.JPG" For Binary As #1
Do While Not EOF(1)
DoEvents
Text.Text = Text.Text & Input(Chunk, #1) & vbNewLine
Loop
Close #1
MsgBox ""
End Sub

Private Sub Command2_Click()
TxtFile = Text.Text
Open "C:\Documents and Settings\Monster\Desktop\New.jpg" For Binary As #1
Put #1, , TxtFile
Close #1
End Sub 


واگه میشه این خط رو توضیح بدید

کد php:

Text.Text = Text.Text & Input(Chunk, #1) & vbNewLine 


[mahdi321]

دوستان کسی نیست راهنمایی کنه؟

[mahdi321]

كسي نيست از دوستان ؟:)