باز کردن و بستن خیلی خیلی ساده ی فایل ها

[daniyal_1363]

سلام به همه مهندسین

چطوری میتونم با استفاده از دستور Input یه فایل رو باز کنم و دوباره با استفاده از دستور put اون رو ذخیره کنم

توضیح :
لازم نیست توضیحات اضافه داشته باشه (مثلاً لازم نیست که حتما پسوند فایل یا اسم فایل برای فایل مقصد تغییر نکنه)
به عنوان مثال میخوام یک عکس با پسوند jpg از درایو C با یه اسم بخصوص باز کنم و بدون هیچ تغییری در درایور D با اسم test با پسوند exe ذخیره کنم یعنی اگه پسوند فایل ذخیره شده رو به jpg تغییر بدم بتونم عکس ام رو ببینم

اگه فقط پسوند یا اسم عوض بشه یا نشه مهم نیست فقط ماهیت فایل مشکل پیدا نکنه (این کار صرفاً برای یاد گیری دستور Input و Put هستش وگرنه راهای راحتری برای انتقال ، جابه جایی ، تغییر نام و تغییر پسوند بلدم پس لطفاً فقط از همین راه راهنمایی کنین )

نمونه های زیادی دیدم تو سایت ولی همه گیج کننده و پیچیده اند

[M.T.P]

Dim BinaryData() As Byte
Dim InputFile As String
Dim OutputFile As String
Dim Filenum As Integer
InputFile = "C:\1.Gif"
OutputFile = "C:\2.Gif"
ReDim BinaryData(1 To FileLen(InputFile))
Filenum = FreeFile
Open InputFile For Binary As Filenum
Get Filenum, 1, BinaryData
Close Filenum
Filenum = FreeFile
Open OutputFile For Binary As Filenum
Put Filenum, 1, BinaryData
Close Filenum



موفق باشید./

[مهران رسا]

چطوری میتونم با استفاده از دستور Input یه فایل رو باز کنم و دوباره با استفاده از دستور put اون رو ذخیره کنماگه اشتباه نکنم دستور Input برای خواندن از فایل های متنی هست و دستور put برای نوشتن در فایل های باینری. برای خواندن اطلاعات از فایل های باینری باید از Get استفاده کنید.

[daniyal_1363]

Dim BinaryData() As Byte
Dim InputFile As String
Dim OutputFile As String
Dim Filenum As Integer
InputFile = "C:\1.Gif"
OutputFile = "C:\2.Gif"
ReDim BinaryData(1 To FileLen(InputFile))
Filenum = FreeFile
Open InputFile For Binary As Filenum
Get Filenum, 1, BinaryData
Close Filenum
Filenum = FreeFile
Open OutputFile For Binary As Filenum
Put Filenum, 1, BinaryData
Close Filenum



موفق باشید./



ممنون

فقط میشه در مورد کدتون خط به خط توضیح بدین

[M.T.P]

خب واضحه:

1. تعریف متغیرها
2. مسیر دهی فایل مبدا و مقصد
3. تعریف مجدد آرایه جهت ذخیره کل دیتای فایل مبدا
4. باز کردن فایل مبدا و نوشتن کل دیتای فایل در آرایه
5. باز کردن فایل مقصد و تخلیه آرایه در آن.