اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

هلا تامر

 

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

 

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

رابط هذا التعليق
شارك

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

 

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

و

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

 

ابدعتما

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

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

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

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

رابط هذا التعليق
شارك

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

 

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

تم تعديل بواسطه ابو تراب
رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه تامر ثروت
رابط هذا التعليق
شارك

  • 1 month later...

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

 

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

و

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

 

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information