CheckBox Nesnesi ile Klasörde Dosya Kontrolü

Bu dosya, A sütunundaki dosya yollarının bilgisayarda gerçekten bulunup bulunmadığını bir CheckBox nesnesiyle kontrol etmeyi sağlar. CheckBox işaretlendiğinde her yol için sonuç yanındaki hücreye yazılır, işaret kaldırıldığında sonuçlar silinir.

Dosyanın içeriği​

• Sayfa1: A1 hücresinde "Resim Yolu ve Adı" başlığı bulunur. A2:A4 aralığında örnek dosya yolları yer alır (D:\ sürücüsündeki bir png, bir docx ve bir xlsm dosyası). B sütunu kontrol sonuçları için kullanılır.
• Sayfada CheckBox4 adlı bir CheckBox nesnesi bulunur ve makro bu nesneye bağlıdır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosya .xlsm biçimindedir.

• CheckBox4_Click: Sayfa1 üzerindeki CheckBox'a tıklandığında çalışır. Nesne işaretliyse A2 ile A sütunundaki son dolu satır arasındaki her hücre için Scripting.FileSystemObject nesnesinin FileExists yöntemi çağrılır. Dosya bulunursa bir sağdaki B hücresine "Var", bulunamazsa "Yok" yazılır.
• CheckBox işareti kaldırılırsa B2 ile B sütunundaki son dolu satır arasındaki sonuçlar ClearContents ile temizlenir.
• Makro yalnızca dosyanın varlığını sorgular; dosya silme, değiştirme veya dışarıya bağlantı işlemi yapmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. A2 hücresinden başlayarak kontrol edilecek dosyaların tam yolunu ve adını alt alta girin (örneğin sürücü, klasör ve uzantı dahil).
3. CheckBox nesnesini işaretleyin; B sütununda her satır için "Var" veya "Yok" sonucu görünür.
4. Listeyi değiştirdikten sonra sonuçları yenilemek için işareti kaldırıp yeniden işaretleyin.
5. Sonuçları silmek için CheckBox işaretini kaldırın.