كيفية التحقق من وجود الملف باستخدام vba (مع مثال)

يمكنك استخدام الدالة Dir في VBA للتحقق من وجود ملف معين في مجلد معين.

إليك طريقة شائعة لاستخدام هذا البيان عمليًا:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

سيقوم هذا الماكرو المحدد بإنشاء مربع إدخال حيث يمكن للمستخدم إدخال المسار الكامل للملف للتحقق من وجوده.

بمجرد قيام المستخدم بإدخال مسار الملف، سينتج الماكرو مربع رسالة يشير إلى ما إذا كان الملف موجودًا أم لا.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: التحقق من وجود الملف باستخدام VBA

لنفترض أن لدينا مجلدًا موجودًا في الموقع التالي:

C:\Users\bob\Documents\current_data

يحتوي هذا المجلد على ثلاثة ملفات CSV:

لنفترض أننا نريد استخدام VBA للتحقق من وجود ملف يسمى Soccer_data.csv في هذا المجلد.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

بمجرد تشغيل هذا الماكرو، يظهر مربع إدخال حيث يمكننا إدخال مسار الملف:

سوف نقوم بإدخال المسار الكامل لملف Soccer_data.csv :

بمجرد النقر فوق “موافق” ، سيظهر مربع رسالة يخبرنا ما إذا كان الملف موجودًا في المجلد الذي حددناه:

يخبرنا مربع الرسالة بوجود الملف.

ملاحظة : يمكنك العثور على الوثائق الكاملة لوظيفة Dir هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

كيفية إنشاء مجلدات باستخدام VBA
كيفية حذف المجلدات باستخدام VBA
كيفية حذف الملفات باستخدام VBA