همانطور که در حال برنامه نویسی ماکروهای خود هستید، ممکن است نیاز به تعیین وجود یک فایل خاص روی دیسک داشته باشید. به عنوان مثال، هدف ماکرو شما ممکن است باز کردن و خواندن از یک فایل متنی باشد. قبل از انجام این کار، برای جلوگیری از بروز خطا، باید بررسی کنید که آیا فایل وجود دارد یا خیر.
تابع VBA زیر می تواند برای بررسی وجود یک فایل استفاده شود. تنها کاری که باید انجام دهید این است که نام کامل فایل را به عنوان رشته ارسال کنید و ماکرو یا True (در صورت وجود فایل) یا False (اگر وجود ندارد) را برمی گرداند.
Function FileThere(FileName As String) As Boolean
FileThere = (Dir(FileName) > "")
End Function
این تابع با استفاده از تابع Dir کار می کند که فایلی را در دایرکتوری بررسی می کند. اگر فایل وجود داشته باشد، Dir مسیر کامل فایل را برمی گرداند. شرط True/False تابع با مقایسه آنچه Dir در برابر یک رشته خالی برمی گرداند به دست می آید. اگر چیزی برگردانده شد، فایل وجود دارد زیرا Dir رشته خالی را بر نمی گرداند.
می توانید از تابعی مشابه زیر استفاده کنید:
If FileThere("c:myfile.txt") Then
Do stuff here
Else
MsgBox "File Not There!"
End If
