• Home
 · 
• Files/File Controls/Input/Output
 · 
• Find Drive Details Without Using API

Find Drive Details Without Using API

Find Drive Details Without Using API

API Declarations



Private FSYS As New Scripting.FileSystemObject
Private X As Drive





Rate Find Drive Details Without Using API

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    On Error Resume Next
    Dim DV, D
    Set DV = FSYS.Drives
    
    List1.Clear
    For Each D In DV
        List1.AddItem D.DriveLetter & vbTab & vbTab & _
                      D.DriveType & vbTab & _
                      D.FileSystem & vbTab & _
                      Format(((D.TotalSize / 1024) / 1024), "#,#0") & vbTab & _
                      Format(((D.AvailableSpace / 1024) / 1024), "#,#0") & vbTab & _
                      Format(((D.FreeSpace / 1024) / 1024), "#,#0") & vbTab & _
                      D.VolumeName
                      
    Next
End Sub