FoundFiles özelliği

[asilacar]

Set fs = Application.FileSearch
With fs
.LookIn = "G:\HOME\MALIKONT\MIZAN\" & Yıl & "\" & Ay & "\" & "YP\"
.Filename = "*-bankonly.xls"
If .Execute > 0 Then
fs.FoundFiles(1).Open

Else
MsgBox "Dosya Yoktur."
End If
End With

Merhabalar. Yukarıda yazmış oldugum kod bulunmaktadır.
fs.FoundFiles(1).Open kısmında hata veriyor.

Yapmaya çalıştıgım şey içinde "-bankonly" kelimesi geçen ilk excel dosyasını bulup açması...Nasıl yapılabilir acaba?

 

[Zeki Gürsoy]

Set fs = Application.FileSearch
With fs
.LookIn = "G:\HOME\MALIKONT\MIZAN\" & Yıl & "\" & Ay & "\" & "YP\"
.Filename = "*-bankonly.xls"
If .Execute > 0 Then
CreateObject ("Shell.Application").Open fs.FoundFiles(1)

Else
MsgBox "Dosya Yoktur."
End If
End With

 

[asilacar]

teşekkürler üstad çok işime yaradı

Denedim tam istediğim dosyayı açtım

 

[asilacar]

With fs
.LookIn = "G:\HOME\MALIKONT\MIZAN\" & Yıl & "\" & Ay & "\" & "YP\"
.Filename = "*-bankonly*"
If .Execute > 0 Then 'Select case haline getirilmeli!'
CreateObject("Shell.Application").Open fs.FoundFiles(1)
Else
.LookIn = "G:\HOME\MALIKONT\MIZAN\" & Yıl & "\" & (Val(Ay) - 1) & "\" & "YP\"
.Filename = "*-bankonly*"
CreateObject("Shell.Application").Open fs.FoundFiles(1)
End If
End With

Kodu biraz geliştirip bu hale getirdim fakat açılan dosyanın ismini bir değişkene atayamadım bu nasıl olur üstad?