VB.NET

VB.NET RSS

Need code to get free space and used space in hard drive ..

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Apr 2007

Posts: 26

Reputation: BalagurunathanS is an unknown quantity at this point

Solved Threads: 0

BalagurunathanS BalagurunathanS is offline

Offline

Light Poster

Need code to get free space and used space in hard drive ..

Sep 19th, 2007

Hi Friends..

I need to get the free space and used space in hard drive ..Can anyone provide me with the code..I need the code in VB.net..I need to see the space available in each drive individually..
Someone help in this regard as early as possible..

Regards,
Balagurunathan

•

Join Date: Dec 2002

Posts: 461

Reputation: waynespangler is on a distinguished road

Solved Threads: 56

waynespangler waynespangler is offline

Offline

Posting Pro in Training

Re: Need code to get free space and used space in hard drive ..

Sep 19th, 2007

Try this:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
        Dim dvr As New DriveInfo("c:")
        Label1.Text = CStr(dvr.TotalFreeSpace / 1000000) & " MB"
        Label2.Text = CStr(dvr.TotalSize / 1000000) & " MB"
        Label3.Text = CStr(Val(Label2.Text) - Val(Label1.Text)) & " MB"
        Dim dvr As New DriveInfo("c:")
        Label1.Text = CStr(dvr.TotalFreeSpace / 1000000) & " MB"
        Label2.Text = CStr(dvr.TotalSize / 1000000) & " MB"
        Label3.Text = CStr(Val(Label2.Text) - Val(Label1.Text)) & " MB"

Last edited by waynespangler; Sep 19th, 2007 at 11:09 am.

Wayne

It is hard to understand how a cemetery can raise its burial rates and blame it on the cost of living.

•

Join Date: Sep 2007

Posts: 9

Reputation: scottb2 is an unknown quantity at this point

Solved Threads: 0

scottb2

Offline

Newbie Poster

Re: Need code to get free space and used space in hard drive ..

Sep 24th, 2007

This is slightly modified from the VB 2005 .NET help files. lstInfo is a listbox in my test application.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
        Dim alldrives() As DriveInfo = DriveInfo.GetDrives()
        Dim d As DriveInfo
 
        For Each d In alldrives
            lstInfo.Items.Add(String.Format( _
                "Drive {0}", d.Name))
            lstInfo.Items.Add(String.Format( _
                "  File type: {0}", d.DriveType))
 
            If d.IsReady = True Then
                lstInfo.Items.Add(String.Format( _
                    "  Volume label: {0}", d.VolumeLabel))
                lstInfo.Items.Add(String.Format( _
                    "  File system: {0}", d.DriveFormat))
                lstInfo.Items.Add(String.Format( _
                    "  Available space to current user:{0, 12:N0} Mbytes", _
                    d.AvailableFreeSpace >> 20))
 
                lstInfo.Items.Add(String.Format( _
                    "  Total available space:          {0, 12:N0} Mbytes", _
                    d.TotalFreeSpace >> 20))
 
                lstInfo.Items.Add(String.Format( _
                    "  Total size of drive:            {0, 12:N0} Mbytes ", _
                    d.TotalSize >> 20))
            End If
        Next
        Dim alldrives() As DriveInfo = DriveInfo.GetDrives()
        Dim d As DriveInfo

        For Each d In alldrives
            lstInfo.Items.Add(String.Format( _
                "Drive {0}", d.Name))
            lstInfo.Items.Add(String.Format( _
                "  File type: {0}", d.DriveType))

            If d.IsReady = True Then
                lstInfo.Items.Add(String.Format( _
                    "  Volume label: {0}", d.VolumeLabel))
                lstInfo.Items.Add(String.Format( _
                    "  File system: {0}", d.DriveFormat))
                lstInfo.Items.Add(String.Format( _
                    "  Available space to current user:{0, 12:N0} Mbytes", _
                    d.AvailableFreeSpace >> 20))

                lstInfo.Items.Add(String.Format( _
                    "  Total available space:          {0, 12:N0} Mbytes", _
                    d.TotalFreeSpace >> 20))

                lstInfo.Items.Add(String.Format( _
                    "  Total size of drive:            {0, 12:N0} Mbytes ", _
                    d.TotalSize >> 20))
            End If
        Next