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