باز کردن فایلها به صورت Binary

[tecnocomputer2]

سلام
میخاستم ببینم چطور میتونم دو تا فایل (دو تا عکس) رو با ویژوال بیسیک با دستور:



intFile = FreeFile()
Open strDestination For Binary Access Write As #intFile
باز کنم و دوتاشونو ذخیره کنم؟



Put #intFile, , bData
ممنونم

[vbhamed]

سلام

بيشتر توضيح بدين
اگر منظور كپي هست كه تابع FileCopy اين كار رو انجام مي ده
ضمنا كدهاتون كمي بهم ريخته هست

[tecnocomputer2]

ممنونم از همکاریتون
اره کپی کردن فایل رو هم میشه با خوندن فایل با یه حلقه وایل و put کردن...
یه عکس رو میخام کپی کنم تو یه جایی، میشه از FileCopy استفاده کرد ولی میخام با Open به صورت باینری بازش کنم. چیزی که هست اینه که بعد از کپی کردن عکس Close نمیکنم دستور Open ام رو، و یه فایل دیگه رو ادامه همون عکس اظافه میکنم
دقیق نمیتونم توضیح بدم:(

[vbhamed]

سلام

اين دستورات فايل دوم رو به انتهاي فايل اول اضافه مي كنه
براي كپي خود فايل اول هم مي توني عين همين كار رو انجام بدي يا اينكه فايل اول رو با همون FileCopy كپي كني


Dim x() As Byte

Open "f1.jpg" For Binary As #1
Open "f2.jpg" For Binary As #2

ReDim x(LOF(2) - 1)

Get #2, , x

Seek #1, LOF(1)
Put #2, , x

Close #1, #2