[mr.esmaily]

سلام

قبلا یه ماژول برای جستجو فیل ها داشتم ولی متاسفانه یادم نیست چی شد.
من میخوام نام تمامی فایل های موجود در یک مسیر همچنین تعداد فایل هایی که بخشی از نام آنها عبارت خاصی است و در مسیر خاصی قرار دارند را بدست بیارم.

[mRizvandi]

سلام

شما برای بدست آوردن نام فایلهای یک مسیر می تونید از دستور DIR استفاده کنید. نحوه استفاده اش هم خیلی ساده است:

If Dir("Your Path such as c:\backup\*.mdb")="" Then
MsgBox "File not found"
End If

اگه مي خواهيد ليستي از فايلها را چك كنيد دو راه حل حداقل داريد:
اول: ليست فايلهاتون رو در جايي مثل آرايه نگه داريد و بعد يكي يكي آونها را با دستور Dir چك كنيد
دوم: برعكس دفعه اول حركت كنيد. يعني اول ليست تمامي فايلها را با دستور Dir بدست بياريد و در جايي مثل آرايه نگه داريد و بعد بدنبال فايلهاي مورد نظرتون در آرايه بگرديد.
گرفتن نام تمام فايلهاي مورد نظرت به شكل زير قابل انجام است:

Dim astrFileName() As String
Dim strCurFileName As String
Dim iFileIndex As Integer

ReDim astrFileName(iFileIndex)

astrFileName(iFileIndex) = Dir("C:\*.*")
strCurFileName = astrFileName(iFileIndex)

Do While strCurFileName <> ""
strCurFileName = Dir
If strCurFileName <> "" Then
iFileIndex = iFileIndex + 1
ReDim Preserve astrFileName(iFileIndex)
astrFileName(iFileIndex) = strCurFileName
End If
Loop