Progress Bar

[kb2tfa]

I cannot get this code to work, can someone look at it?

I do get values from this with the messagebox, but not with the progress bar.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim HDTotalSIZE As Integer = My.Computer.FileSystem.Drives(1).TotalSize
        ProgressBar2.Maximum = HDTotalSIZE

        Dim HDAvailSIZE As Integer = My.Computer.FileSystem.Drives(1).AvailableFreeSpace
        ProgressBar2.Value = HDAvailSIZE

        Button2.Enabled = False

    End Sub

 

[JohnH]

TotalSize and AvailableFreeSpace are Long type numbers, they are too big for Progressbar. Calculate percentage and use default Progressbar max of 100. Example:

Dim info As IO.DriveInfo = My.Computer.FileSystem.Drives(0)
ProgressBar1.Value = info.AvailableFreeSpace / info.TotalSize * 100

 

[kb2tfa]

Thanks

This gives me the total size of the HD, and not the available.

 

[JohnH]

No, it give you what you wanted to display in progressbar; available in relation to total.