Dosya Bilgilerini Alma

Bu dosya, bilgisayardaki herhangi bir dosyanın bilgilerini Excel içinden almayı sağlayan makro tabanlı bir şablondur. Dosya seçme penceresinden seçilen dosya için tür açıklaması ve Windows'un tuttuğu ayrıntılar mesaj kutusunda gösterilir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• MAIN: A1:Q16 aralığında düzenlenmiş ana sayfadır. Makrolar bu sayfadan çalıştırılır. Sayfada CreateLink (L1), NewBook (L2) ve DStatus (L3) adlı tanımlı hücreler bulunur.

Dosyada formül kullanılmamıştır; tüm işlemler VBA modülleriyle yapılır.

Makrolar​

• GetFileDescp: Dosya seçme penceresini açar. Seçilen dosyanın yolunu ve türünü (ör. "Microsoft Excel worksheet" gibi Windows'taki tür adı) mesaj kutusunda gösterir. Pencere iptal edilirse işlem sonlanır. Tür adı, Shell32 kütüphanesindeki SHGetFileInfo API çağrısıyla okunur; bu işlem ModDetailsAPI modülündeki GetFileDescription fonksiyonunda yapılır.
• GetFileDetails: Seçilen dosyanın klasör yolunu ve adını ayırır, Shell.Application nesnesi üzerinden dosyanın ayrıntılarını okur ve klasör bilgisiyle birlikte mesaj kutusunda gösterir. Hata oluşursa hata numarası, açıklaması ve satır numarası görüntülenir. Yardımcı FileNameOnly ve FilePathOnly fonksiyonları tam yoldan dosya adını ve klasör yolunu ayırır.

Makrolar yalnızca seçilen dosya hakkında bilgi okur; dosya silme, değiştirme ya da dışarıya bağlantı işlemi içermez. Sheet1 sayfasındaki CheckBox olay yordamları boştur ve herhangi bir işlem yapmaz.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın.
3. Dosya türünü öğrenmek için GetFileDescp, ayrıntıları görmek için GetFileDetails makrosunu seçip çalıştırın.
4. Açılan pencereden incelenecek dosyayı seçin; sonuç mesaj kutusunda görüntülenir.

API tanımı nedeniyle makro Windows ortamında çalışır; kodu kendi çalışmalarınıza almak için Alt+F11 ile ModDetailsAPI ve ModDetails modülleri incelenebilir.