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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim i as long, Lettre as String For i = 1 to 26 Lettre = Chr$(i+64) Next