بررسی وجود یک فایل در مسیر اجرای برنامه

[mmbguide]

سلام

چطور میشه وجود یک فایل در مسیر اجرای بانک اطلاعاتی با یک فیا رجیستر شده در اکسس (مثل یک فایل OCX یا DLL) را بررسی کرد؟

با تشکر

[vafadar]

سلام

چطور میشه وجود یک فایل در مسیر اجرای بانک اطلاعاتی با یک فیا رجیستر شده در اکسس (مثل یک فایل OCX یا DLL) را بررسی کرد؟

با تشکر

كد مورد نظر :



Dim strAddress As String
strAddress = Application.CurrentProject.Path + "\"
Set fs = Application.FileSearch
With fs
.LookIn = strAddress
.FileName = "Tables.mdb"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "File Found"
Else
MsgBox "File NOT Found"
End If

[mmbguide]

سلام

FileSearch در اکسس 2103 وجود نداره. باید از چه چیزی استفاده کنم؟

ممنون

[Abbas Amiri]

سلام

FileSearch در اکسس 2103 وجود نداره. باید از چه چیزی استفاده کنم؟

ممنون

راحت ترین راه استفاده از تابع Dir است

If Len(Dir(CurrentProject.Path & "\" & strFileName)) > 0 Then
'type your code
End If