ايران ويج

سلام
من یه برنامه دارم واسه کار با فایل هست
میتونم فایل باینری رو بخونم ولی وقتی مینویسم تبدیل به همون فایل اصلی تبدیل نمیشه
یه دونه 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

mahdi321