[أبو عمر]

وعليكم السلام
ضع على الفورم صندوقي نص text
وزر commandButton
وانسخ الكود والصقه وغير حرف القرص

PHP كود :

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
    Me.AutoRedraw = True
    Select Case GetDriveType(Text1.Text & ":\")
        Case 2
            Text2.Text = "ÞÑÕ ÞÇÈá ááÇÒÇáÉ"
        Case 3
            Text2.Text = "ÞÑÕ ÕáÈ"
        Case Is = 4
            Text2.Text = "ÞÑÕ ÞÇÈá ááÇÒÇáÉ"
        Case Is = 5
            Text2.Text = "ãÍÑß ÇÞÑÇÕ áíÒÑ"
        Case Is = 6
            Text2.Text = "ÞÑÕ ÐÇßÑÉ ÇáæÕæá ÇáÚÔæÇÆí"
        Case Else
            Text2.Text = "ÛíÑ ãÚÑæÝ"
    End Select
End Sub

Private Sub Form_Load()
Text1.Text = "C"
End Sub