aşağıdaki kodlar ile tüm sürücüler tanımlanıp türü belirtiliyor kendi çalışmanıza uyarlayabilirsiniz?Tüm sürücüleri tarar

Sub SurucuBul()

   Dim fso As Object '  FileSystemObject

   Dim d As Object  'Drive

   Dim dName As String

   Dim k As String

   Dim g As String

   Set fso = CreateObject("Scripting.Filesystemobject")

       For Each d In fso.Drives

              SurucuTur d.DriveLetter

       Next d

End Sub

sürücülerin Türünü ekrana yazar

Sub SurucuTur(SurucuYol)

    Dim fs, d, s, t

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set d = fs.GetDrive(SurucuYol)

    Select Case d.DriveType

        Case 0: t = "Unknown/Bilinmeyen"

        Case 1: t = "Removable/Çıkarılabilir"

        Case 2: t = "Fixed/Yerel"

        Case 3: t = "Network/Ağ"

        Case 4: t = "CD-ROM"

        Case 5: t = "RAM Disk"

    End Select

    s = "Drive " & d.DriveLetter & ": - " & t

    Debug.Print s

End Sub