byte,megabyte... çevirme

[mborazan]

Merhabalar Arkadaşlar üstadlar
bu soru için daha önce konu açılmamış galiba arama yaptım bulamadım
elimde ki dosyaların listesini çıkarıyorum da dosyaların boyutunu bayt cinsinden yazdığım zaman bana ekte belirtilen tabloda ki yere rakamlarını ve cinsi yazan yere mb gb tb yazmasını istiyorum birde tablonun en üstünde bulunan cinsi yazan hücrede ki de yazının dosyaların toplam boyutuna göre değişmesini istiyorum.
İnşallah anlatabilmişimdir. şimdiden yardımlarınız için teşekkürlerimi sunarım.

 

[hamitcan]

Sorunuz birkaç aşamadan oluşuyor. Öncelikle hangi klasördeki dosyaların boyutunu öğrenmek istiyorsanız, onları tespit etmeniz gerekiyor bunun için; forumdan "alt klasörler dahil tüm dosyaları bulma" ile ilgili kodlara ulaşın sonra bu koda aşağıdaki gibi bir eklenti yapmanız gerekiyor sonra da Excel sayfası içinde tüm bu dosyaların toplamını tespit etmelisiniz.

Sub dosyaboyutu()
    Const bytesToKb = 1024
    strFile = "C:\hh.xls" 'Örnek dosya boyutu
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(strFile)
    MsgBox "File Size: " & CInt(objFile.Size / bytesToKb) & "Kb"
End Sub

 

[mborazan]

Sorunuz birkaç aşamadan oluşuyor. Öncelikle hangi klasördeki dosyaların boyutunu öğrenmek istiyorsanız, onları tespit etmeniz gerekiyor bunun için; forumdan "alt klasörler dahil tüm dosyaları bulma" ile ilgili kodlara ulaşın sonra bu koda aşağıdaki gibi bir eklenti yapmanız gerekiyor sonra da Excel sayfası içinde tüm bu dosyaların toplamını tespit etmelisiniz.

Sub dosyaboyutu()
    Const bytesToKb = 1024
    strFile = "C:\hh.xls" 'Örnek dosya boyutu
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(strFile)
    MsgBox "File Size: " & CInt(objFile.Size / bytesToKb) & "Kb"
End Sub

ÜStadım ben bayt elle yazacam diğer değerleri otomatik olarak yazacak

 

[hamitcan]

Eki inceleyin.

 

[mborazan]

Teşekkür

HOcam Teşekkür ederim tam istediğim değil ama yinede sağol elle yazıyorum bende internette çeviriyorum ona göre yazıyorum ilgin için teşekkür ederim