Disk Space Reports 1

[aachap]

Hi all,

Is there any VB function or procedure that can return the stats on a mapped network drive ? Ie Total disk space, used and free space.

Apologies if this seems a stupid question !!

TIA

Chris S.....

 

[JohnYingling]

Get to know the FileSystemObject.
VB / Reference / Objects / FileSystemObject

Dim fs as Scripting.FileSystemObject 
Dim D  as Scripting.Drives
Dim dc as Scripting.Drive
Dim S  as string
Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - " 
        If d.DriveType = Remote Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        ...d.FreeSpace
        ...d.TotalSize
        s = s & n & vbCrLf
    Next

http://WWW.VBCompare.Com