Harddiskinizin Boş Alanını Öğrenmek

Bu makalede harddiskin kapasitesini, doluluk oranını, boş alanı getInfo methodundan yararlanarak öğreneceğiz. Formunuza 7 adet Label, 4 adet TextBox, 3 adet ProgressBar ekleyin.

Şekil 1

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim getInfo As System.IO.DriveInfo
        getInfo = My.Computer.FileSystem.GetDriveInfo("C:\")

        ‘Toplam kapasite
        TextBox1.Text = Format((getInfo.TotalSize / 1000000000), "#.##") & " GB."
        ‘Kullanılan Kapasite
        TextBox2.Text = Format(((getInfo.TotalSize - getInfo.TotalFreeSpace) / 1000000000), "#.##") & " GB."
        ‘Kalan Boş Alan
        TextBox3.Text = Format((getInfo.TotalFreeSpace / 1000000000), "#.##") & " GB."
        ‘Format
        TextBox4.Text = getInfo.DriveFormat

        ProgressBar1.Value = 100
        ProgressBar2.Value = 100 * (Val(TextBox2.Text) / Val(TextBox1.Text))
        ProgressBar3.Value = 100 * (Val(TextBox3.Text) / Val(TextBox1.Text))
        Label5.Text = "% 100"
        Label6.Text = "% " & Format(100 * (Val(TextBox2.Text) / Val(TextBox1.Text)), "#.##")
        Label7.Text = "% " & Format(100 * (Val(TextBox3.Text) / Val(TextBox1.Text)), "#.##")

    End Sub