Mazoo Utils for VBA - کتابخانه ابزارهای سودمند برای VBA

[mazoolagh]

این متد مشخصات همه دیسک درایوها را نشان میدهد.
فقط کابرد تست و آموزشی دارد.

ShowDiskDrivesInfo()

کد نمونه:

Sub Example_B()





    Dim ddi() As New DiskDriveInfo

    ddi = v.GetDiskDrivesInfo

    

    N = UBound(ddi)

    If N >= 0 Then

        Debug.Print N + 1 & " Disk Drives Found!"

        For i = 0 To N

            Debug.Print ddi(i).Name, ddi(i).Caption

            ddi(i).ShowProperties

        Next

    Else

        Debug.Print "No Disk Drives Found!"

    End If

    

End Sub