كيف اتأكد من أن الملف موجود في المجلد؟

If Dir("c:myprogrambinreadme.txt") = "" Then
MsgBox "not found"
Else
MsgBox "found"
End If

وشكرا

ما شاء الله عليك :)

شكراً جزيلاً

مرحباً من جديد

أخي هل لي أن أجدد طرح السؤال عليك :o

كيف يمكن أن اتأكد من أن المجلد bin موجود ؟

لقد جربت أن احذف اسم الملف لكن لم انجح :'(

الأسئلة تزيد :D

كيف يمكن أن أجعل برنامجي ينشأ ملف نصي في مجلد c:myprogrrambin

ويكتب فيه خمسة أسطر؟

أدري إن أنا زودتها ، لكن تحملوني (f)

لإنشاء ملف نصي وكتابة الوقت فيه :

Open "c:FileName.txt" For Append As #1
Print #1, "On: " & CStr(Now)
Close #1

عدل فيه ليلبي حاجتك .

ولك تحياتي

التأكد من وجود المجلد يكون بنفس طريقة التأكد من وجود الملف ولكن لا تنس أن تضع الرمز بعد اسم المجلد لذلك يكون الكود اللازم للتأكد من وجود المجلد windows كتالي

If Dir("c:windows") = "" Then
MsgBox "not found"
Else
MsgBox "found"
End If

أما بالنسبة لإنشاء ملف نصي جديد فاستخدم الكود التالي

n = FreeFile()
Open "c:myprogrrambinfile.txt" For Append As n
Print #n, "Line:1"
Print #n, "Line:2"
Print #n, "Line:3"
Print #n, "Line:4"
Print #n, "Line:5"
Close #n

حيث ان الكود السابق يضيف خمسة أسطر الى الملف file.txt وينشئ الملف ان لم يكن موجود

أما اذا اردت إضافة خمسة أسطر جديدة للملف بالكتابة على محتوياته السابقة فاستخدم Output بدلا من Append

وشكرا

شكراً جزيلاً لكما:)