Dosya simgesi

Bir Dosyanın Diskteki Boyut Bilgisini Yazdırma

Bu şablon, bir dosyanın diskte kapladığı gerçek boyutu hesaplar. Dosyanın içindeki veri boyutu ile diskte ayrılan alan aynı değildir; dosya sistemi alanı küme (cluster) birimleriyle ayırdığı için diskteki boyut genellikle dosya boyutundan büyüktür. Şablondaki özel işlev bu değeri bayt cinsinden verir.

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

Dosyanın içeriği​

  • Sayfa1: A1 hücresinde FileDiskLen işlevinin örnek kullanımı bulunur. Örnekte C:\ sürücüsündeki dosya adı yolu verilmiştir.
  • Module1: İki özel işlevin (FileDiskLen ve FileSize) VBA kodunu içerir.

Kullanılan formüller​

A1 hücresindeki formül, yolu verilen dosyanın diskteki boyutunu getirir:
Excel formülü
=FileDiskLen("C:\bir_dosyanin_diskteki_boyut_bilgisini_yazdirma.xlsm")
Formüldeki yol, boyutu öğrenilecek dosyanın tam yolu ile değiştirilir. İşlev adı Türkçe ve İngilizce Excel'de aynıdır.

Makrolar​

  • FileDiskLen: Dosya yolunun ilk üç karakterinden sürücü kökünü alır ve Windows'un GetDiskFreeSpace API işlevi ile kümedeki sektör sayısını ve sektör başına bayt sayısını okur. Bunları çarparak küme boyutunu bulur. Ardından FileLen ile dosyanın gerçek boyutunu okur, kaç kümeye sığdığını yukarı yuvarlar ve küme sayısıyla küme boyutunu çarpıp sonucu döndürür. Yol 4 karakterden kısaysa ya da küme boyutu okunamazsa işlev sonuç vermez.
  • FileSize: FileSystemObject nesnesi ile dosyanın gerçek (içerik) boyutunu bayt olarak döndürür. FileDiskLen sonucuyla karşılaştırma için kullanılabilir.
Kodda dosya silme, yazma ya da dışarıya bağlantı işlemi yoktur; işlevler yalnızca okuma yapar. Kodun API bildirimi PtrSafe ile yazıldığından 64 bit Excel sürümlerinde çalışır.

Nasıl kullanılır​

  1. Dosyayı açın ve makroları etkinleştirin.
  2. Sayfa1 sayfasında A1 hücresini seçin.
  3. Formüldeki dosya yolunu, boyutunu öğrenmek istediğiniz dosyanın tam yoluyla değiştirin.
  4. Enter tuşuna basın; diskteki boyut bayt olarak hücrede görüntülenir.
  5. Aynı işlevi başka hücrelerde kullanmak için formülü kopyalayın; dosya gerçek boyutu için FileSize işlevi benzer biçimde çağrılır.
Not: FileDiskLen işlevi Long türünde sonuç döndürdüğünden yaklaşık 2 GB üzerindeki dosyalarda taşma hatası oluşabilir.

Qene tarafından daha fazla dosya

Detaylar
Yazar
Qene
İndirme
7
Gösterim
1,091
İlk sürüm
Güncel
SHA-256
ee78e636107524bcca8735f42b2155c2fbdfee590d2a2306387799bda77a7276

Puanlar

5.00 Oylama 1 İnceleme

En son değerlendirmeler

Paylaşımınız için teşekkürler.
Geri
Üst