جستجو چند فایل با پسوند متفاوت

[boveiryghasem]

درود.
توی برنامه ای که دارم نیاز دارم به اینکه از وجود چند فایل با پسوندهای مختلف در یک مسیر و پوشه خاص مطمئن بشم در اصل میخام جستجو کنه.؟
چکار باید انجام بدم.؟
تا حالا که هر سوالی بوده کسی جواب نداده خدا کنه این یکی رو جواب بدن:افسرده:
متشکرم.

[boveiryghasem]

مثل بقیه سوالات کسی بلد نیست.:قهقهه:
کس نخارد بشت من جز ناخوووووووووووون انگشت من:تشویق:
خودم جوابشو پیدا کردم
[Set fd = CreateObject("Scripting.filesystemObject")
Set fs = fd.getfolder("C:\Folder1")
For Each fl In fs.Files
MsgBox fl.Name
Next fl

[Mr'Jamshidy]

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

اینو امتحان کن


Private Sub Form_Load()
Dim File As String
Dim Path As String
Path = Environ("SystemRoot")
If Not Right(Path, 1) = "\" Then Path = Path & "\"
Path = Path & "System32\"
File = Dir(Path)
Do
If Trim(File) = "" Then Exit Do
Select Case LCase(Right(File, 4))
Case ".dll"
List1.AddItem File
Case ".exe"
List1.AddItem File
End Select
Loop
End Sub