SoloCodigo

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

 

Private Sub Form_Load()

    'KPD-Team 1998

    'URL: http://www.allapi.net/

    'E-Mail: KPDTeam@Allapi.net

    'Set the graphic mode to persistent

    Me.AutoRedraw = True

    'Get information about the C:\

    Select Case GetDriveType("C:\")

        Case 2

            Me.Print "Removable"

        Case 3

            Me.Print "Drive Fixed"

        Case Is = 4

            Me.Print "Remote"

        Case Is = 5

            Me.Print "Cd-Rom"

        Case Is = 6

            Me.Print "Ram disk"

        Case Else

            Me.Print "Unrecognized"

    End Select

End Sub