Get HD Info

alex_extreme 0 163 Views

Gets the names of all the partitions in a system. Note that media must be in every removable drive for this to work (can be fixed easily)

' GetHDInfo - Get names of all the partitions and drives on a system

Dim FSO, d, Drives, MyStr, n
' Create the FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
' Get the list of drives
Set Drives = FSO.Drives
' Go through the drives and get names
For Each d In Drives
    MyStr = MyStr & d.DriveLetter & " - "
    If d.DriveType = 3 Then
        n = d.ShareName
    Else
        n = d.VolumeName
    End If
    MyStr = MyStr & n & vbCrLf
Next
MsgBox MyStr
Member Avatar for kouji108
kouji108 0 Newbie Poster

how to use?
..where should i put this coding?

Member Avatar for Mark A
Mark A 0 Newbie Poster

If a drive has no title or the title is "" then can't read d.VolumeName and program will crash.

Replace

n = d.VolumeName

with

On Error Resume Next
        n = ""
        n = d.VolumeName
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

Edit Preview