منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

اطلب كود لمعرفة نوع القرص هل هو مرن او ليزري او صلب

وعليكم السلام
ضع على الفورم صندوقي نص 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 

مشكور جدا اخي Lion_Ksa

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

asto

أبو عمر

asto