Dosya mevcut mu?

[asilacar]

Merhabalar

Forumu arattım hatta biraz da gezinip aradım ama bulamadım acaba belirtilen bir dizinde aranan dosyanın var olup olmadığını var ise bir koşula nasıl bağlayabileceğimi bilemiyorum.

Dosyanın var olup olmadığını bilsem gerisi kolay ama nasıl yaparım bilemedim yardımcı olabilirseniz müteşekkir olurum.

Sorunun bir sonraki aşaması da içinde belirli bir string geçen dosyayı bulması (var olup olmadıgını bilip var ise açmas&#305 mesela stringimiz "asil" ise bu kelimeyi içeren ilk dosyayı bulup açması mümkün mü?

Şimdiden teşekkürler

 

[Necdet]

Merhaba,

İlk sorunuza ait bir çözüm, başka yöntemlerde olabilir.

Public Sub DosyaBul()
Set fs = Application.FileSearch
With fs
    .LookIn = "[COLOR=red][B]C:\Documents and Settings\necdet\Belgelerim\_Excel_Web[/B][/COLOR]"
    .Filename = "[COLOR=red][B]abc*.*[/B][/COLOR]"
    If .Execute > 0 Then
        MsgBox "Dosya Vardır"
    Else
        MsgBox "Dosya Yoktur."
    End If
End With
End

Sub

 

[asilacar]

Teşekkür ederim fakat buradaki If .Execute endir çıkaramadım