اريد مساعدة فى كود تحديد وجود الملف

[تامر ثروت]

ارجو من خبراء الاكسيل 

اريد مساعدة فى كود تحديد وجود الملف فى مسار معين 

وكود عدم فتح الملف عند تغير اسم الملف 

اصدار 2007-2010

[ابو تراب]

هلا تامر

 

هذا كود خفيف و بدون تعقيدات لفحص اذا الملف موجود:

 

Function checkIfFileExists(FileName As String) As Boolean
     checkIfFileExists = (Dir(FileName) > "")
End Function


Sub btnCheckFile()
    If checkIfFileExists([B1]) Then
         MsgBox "الملف موجود", vbInformation + vbOKOnly
    Else
         MsgBox "الملف غير موجود", vbCritical + vbOKOnly
    End If
End Sub

ملاحظة

=====

اذا اردت التحقق من وجود ملف فادخل المسار كاملا. مثلا:

C:\test\myFile.txt

اما اذا اردت التاكد من مجلد معين فيجب اضافة \ لنهاية المسار. مثلا

C:\test\

 

Check If File Exists.zip

[ياسر خليل أبو البراء]

جميل أخي الحبيب أبو ذهب

ولإثراء الموضوع هذا ملف فيه شرح وافي لمثل طلبك

 

VBA DIR Function.rar

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

 

الأخ ابو الذهب

و

الأخ الحبيب ياسر خليل

 

ابدعتما

جزاكم الله خيرا

[ياسر خليل أبو البراء]

السلام عليكم و رحمة الله وبركاته

 

الأخ ابو الذهب

و

الأخ الحبيب ياسر خليل

 

ابدعتما

جزاكم الله خيرا

الأخ الحبيب والأستاذ الكبير أول المعلمين لي في المنتدى (لا أنسى أنك أول من استقبلتني)

الإبداع أنتم من صنعتموه .. وبكم عرفناه .. ولا يمكننا أبدا أن ننسى أساتذتنا الأجلاء الذين علمونا الأخلاق وعلمونا التواضع وعلمونا الإبداع

يا أستاذ أحمد (مش ناوي تفتح الباب معانا ولا هتبص بس من الشباك .. في انتظار إضافاتك الجميلة في حلقات افتح الباب (دا إذا كنت واخد بالك من الحلقات!))

[ابو تراب]

وعليكم السلام و رحمة الله وبركاته

 

هلا و مرحبى با ستاذنا احمد....سعدنا بمرورك و بكلماتك الطيبة  اسعد الله صباحك و صباح الاخ المبدع ياسر بالخير و العافية

تم تعديل نوفمبر 26, 2014 بواسطه ابو تراب

[تامر ثروت]

انا عاجز عن الشكر على كل الردود الجميلة والفعالة بس انا يمكن مش موضح الطلب كويس انا عايز لو الملف الاكسيل مثال مش فى C لا يفتح الملف

واذا تم تغير اسم  الملف لا يفتح الملف 

بارك الله فيكم وفى المنتدى الجميل والعظيم 

تم تعديل نوفمبر 26, 2014 بواسطه تامر ثروت

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

 

الأستاذ الفاضل ابو الذهب

و

الأستاذ الحبيب ياسر خليل

 

جزاكما الله خيرا

استفدت من الأكواد المرفقة