Application.ThisWorkbook.Path altında "kara" metnine sahip klasör varmı?

[hsayar]

Merhaba aşaıdaki kodlari ile dosya olup olamdığını kontrol edebiliyoruz peki kalsör olup olmadığını kontrol için ne yapmalıdır.

Sub DosyaVarmı()
Kaynak = Application.ThisWorkbook.Path & "\" & "Tckimlik"                       'Kaynak olarak bu kitabın olduğu klasörde veri tabanı belirt
Set FSO = CreateObject("Scripting.FileSystemObject")                                'Dosya kontorol objesine değer ata
If FSO.FileExists(Kaynak) = False Then                                              'Kaynak dosya var mı yokmu bak, yoksa
    MsgBox Kaynak & " " & " Dosyası Bulunamadı.", vbInformation, "Bilgi"                'Uyarı ver,
    Exit Sub                                                                            'makrodan çık
Else
    MsgBox "Dosyavar"
End If
End Sub

 

[hamitcan]

FileExists yerine FolderExists kullanarak deneyin.

 

[hsayar]

teşekkürler hocam az önce farkettim bende o şekilde oluyormuş