سؤال في التعامل مع الملفات

يوجد ملحوظتان ..

الأولي :

عدم تعريف المتغير Var ..

وبالتالي حلها

Dim Var as string

الثانية :

طالما ستتعامل مع المود Binary فيجب حجز مخزن مناسب Buffer علي الأقل بحجم الملف ليتم وضع بيانات الملف به .. قبل استدعاء الدالة Get

وحجم الملف تستطيع الحصول عليه بدالة Lof أو length of file

وبالتالي حلها

Var = Space(LOF(f))
	Get #f, , Var

أخي الكريم تظهر لي الرسالة التالية:-

Bad file name or number

وأنا أستخدم الكود التالي:-

Dim a As String
Dim f As String
Dim Var As String
a = "C:\1.txt"
f = FreeFile
Var = Space(LOF(f))
Get #f, , Var
Text1.Text = Var

وشكرا أخي الكريم على تجاوبك السريع.

فين جملة فتح الملف Open يا أخي..

ادخل نام .. شكل تركيزك راح كله النهاردة ..

Dim a As String
Dim f As String
Dim Var As String
a = "C:\1.txt"
f = FreeFile
Open a For Binary As f
	Var = Space(LOF(f))
	Get #f, , Var
Close f
Text1.Text = Var

شكرا أخي الكريم وفعلا شكلي مضيع مرررة والكود نفع معاي.