Set fs = Application.FileSearch
With fs
.LookIn = "G:\HOME\MALIKONT\MIZAN\" & Yıl & "\" & Ay & "\" & "BANKA-KONSOL\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) & "\" & "BANKA-KONSOL\YP\"
.Filename = "*-bankonly*"
CreateObject("Shell.Application").Open fs.FoundFiles(1)
fs.FoundFiles(1).Activate
Dim bnkname As String
bnkname = ActiveWorkbook.Name
End If
End With
Üstadlar yukarıdaki kodda içerisinde -bankonly olan ilk dosyayı bulup açtırmasını başardım
Fakat bu açılan dosyanın ismini bnkname değişkenine atayamadım bir türlü bunu nasıl yapabiliriz yukarıdaki bold kısımdaki gibi denedim olmadı da
Şimdiden teşekkürler.
With fs
.LookIn = "G:\HOME\MALIKONT\MIZAN\" & Yıl & "\" & Ay & "\" & "BANKA-KONSOL\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) & "\" & "BANKA-KONSOL\YP\"
.Filename = "*-bankonly*"
CreateObject("Shell.Application").Open fs.FoundFiles(1)
fs.FoundFiles(1).Activate
Dim bnkname As String
bnkname = ActiveWorkbook.Name
End If
End With
Üstadlar yukarıdaki kodda içerisinde -bankonly olan ilk dosyayı bulup açtırmasını başardım
Fakat bu açılan dosyanın ismini bnkname değişkenine atayamadım bir türlü bunu nasıl yapabiliriz yukarıdaki bold kısımdaki gibi denedim olmadı da
Şimdiden teşekkürler.