Klasör Altındaki Dosya Kontrokü hk

[bulentkars]

Arkadaşlar Merhaba

Benim C:\Arşiv\ Klasörün içinde 5 adet Excel çalışma Kitabım var.İsimler sabiT aynı.

Urunler.XLS
Partiler.XLS
Stok.XLS
Fiyat.XLS
Kodlar.XLS

Öyle birmakro yapmak istiyorumki makroyu çalıştırdığımda C:\Arşiv\ Klasörünün içine bakacak eğer dosya isimleri farklı veya eksik ise Msgbox Veya Userformda bana uyarı vermesini sitiyorum.Örneğin Makrıyu çalıştırıdğımda Eğer Partiler.XLS Dosyası yoka uyarı verecek veya Partiler.XLS yerine Parti.XLS yazılmışşsa uyarı verecek.Bukonuda yardımlarınızı bekliyorum.Şimdiden Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub DOSYA_ADI_KONTROL()
    Dim Klasör As String, Dosya As String, Mesaj As String
    
    Klasör = "C:\Arşiv\*.xls"
    
    Dosya = Dir(Klasör)
    
    While Dosya <> ""
    If Dosya <> "Urunler.xls" And Dosya <> "Partiler.xls" And Dosya <> "Stok.xls" And Dosya <> "Fiyat.xls" And Dosya <> "Kodlar.xls" Then
    Mesaj = Mesaj & Chr(10) & Dosya
    End If
    Dosya = Dir
    Wend
    
    If Mesaj <> "" Then
    MsgBox "Aşağıdaki dosya isimleri hatalı girilmiştir. Lütfen düzeltiniz !" & Chr(10) & Mesaj, vbCritical, "Dikkat !"
    Else
    MsgBox "Hatalı dosya adı bulunamamıştır.", vbInformation
    End If
End Sub

 

[bulentkars]

Korhan Bey
Öncelikle ilginiz için çok teşekkür ederim makroyu çalıştırdım dosya isimleri doğru olmasına rağmen MsgBox "Aşağıdaki dosya isimleri hatalı girilmiştir. Lütfen düzeltiniz !" & Chr(10) & Mesaj, vbCritical, "Dikkat !" Uyarını veriyor