كيفية التحقق من وجود ملف أو مجلد في جهاز الكمبيوتر الخاص بك باستخدام Excel VBA؟

يركز البرنامج التعليمي لأتمتة Office اليوم على تعلم كيفية التحقق من وجود ملف في أحد دلائل الكمبيوتر.

تحضير

إذا كنت جديدًا إلى حد ما في مجال الترميز ، فتأكد من تمكين علامة التبويب تطوير Microsoft Office Excel وأنك على دراية ببعض أساسيات Excel VBA .

التحقق مما إذا كان الملف موجودًا باستخدام Excel VBA

تستفيد التعليمات البرمجية التالية من مربعات الإدخال من أجل التقاط المسار إلى الملف بالإضافة إلى اسم الملف نفسه من المستخدم.

ثم يستفيد من طريقة Dir للتحقق مما إذا كان مسار الملف موجودًا بالفعل.

أخيرًا ، يعرض مربع رسالة للمستخدم بنتيجة الاختيار.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

تحقق من وجود مجلد

بطريقة مماثلة تمامًا ، يمكنك التحقق مما إذا كان هناك مجلد معين موجود في نظام التشغيل الخاص بك. هنا أيضًا نستفيد من طريقة Dir ، ولكن باستخدام المعلمة vbDirectory .

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

استخدام الكود

• افتح Microsoft Excel وانتقل إلى المصنف الخاص بك.
• اضغط على Developer ثم اضغط على Visual Basic.
• انسخ والصق الكود أعلاه كإجراء فرعي في ورقة محددة من وحدة VBA النمطية الخاصة بك.
• قم بتشغيل (F5) الكود.
• احفظ المصنف الخاص بك.

التمديدات الممكنة

يتم تمديد رمز لوحة الغلاية أعلاه لحالات الاستخدام التالية:

• قم بإنشاء مجلد / ملف إذا لم يكن موجودًا بالفعل.
• احذف ملف المجلد بشرط أن يكون موجودًا في دليل ملفات نظام التشغيل.
• ابحث عن الملفات / المجلدات باستخدام حرف بدل.