Disk Sürücü Kapasitesini Gösterme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub Toplam_Alan_Göster()
Dim ED, d, s
Set ED = CreateObject("Scripting.FileSystemObject")
Set d = ED.GetDrive(ED.GetDriveName("C:"))
s = UCase(d) & " Sürücüsünde Toplam Alan:" & Chr(13) + vbCrLf & FormatNumber(d.TotalSize)
s = s & " Bytes"
MsgBox s
End SubAçıklama
Kodu çalıştırdıktan sonra alttaki gibi bir görüntü elde edeceksiniz.Faydalanılması temennisiyle
