API Disk Sürücülerini Öğrenme

Option Explicit
Private Declare Function GetDriveType Lib "Kernel32" Alias "GetDriveTypeA" (ByVal lpRootPathName As String) As Integer

Private Sub Form_Load()
Show

Dim i As Integer, a As Integer

Dim s2, s3, s4, s5, s6
For i = 0 To 27 'bütün harfleri dene
a = GetDriveType(Chr(65 + i) + ":\") 'rakamı harfe çevir
Select Case a
Case 0: 'i numaralı sürücü yok
Case 2: 'disket sürücüsü
s2 = s2 + "" + Chr(65 + i) + ": "
Case 3: 'harddisk sürücüsü
s3 = s3 + "" + Chr(65 + i) + ": "
Case 4: 'uzak sürücüsü network gibi
s4 = s4 + "" + Chr(65 + i) + ": "
Case 5: 'cdrom sürücüsü
s5 = s5 + "" + Chr(65 + i) + ": "
Case 6: 'Ram disk
s6 = s6 + "" + Chr(65 + i) + ": "

End Select

Next

ForeColor = &HFF&
FontSize = 17
Print "Disket Sürücüleri ====> ";
If s2 = "" Then Print " Yok " Else: Print s2
Print "HardDisk Sürücüleri ====> ";
If s3 = "" Then Print " Yok " Else: Print s3
Print "Uzak Sürücü ====> ";
If s4 = "" Then Print " Yok " Else: Print s4
Print "CDROM Sürücüleri ====> ";
If s5 = "" Then Print " Yok " Else: Print s5
Print "RAM DISK ====> ";
If s6 = "" Then Print " Yok " Else: Print s6
End Sub

Categories: Visual Basic