منتديات رحيل لكل العرب - نوعية القرص (قرص مرن،سي دي

نوعية القرص (قرص مرن،سي دي،.....)
*كود برمجي*

--------------------------------------------------------------------------------

كود:

'التصاريح



Public Const DRIVE_CDROM = 5

Public Const DRIVE_FIXED = 3

Public Const DRIVE_RAMDISK = 6

Public Const DRIVE_REMOTE = 4

Public Const DRIVE_REMOVABLE = 2





'الكود



Dim strMessage As String

Dim intCnt As Integer





For intCnt = 65 To 86

strDrive = Chr(intCnt)





Select Case GetDriveType(strDrive + ":\")

Case DRIVE_REMOVABLE

rtn = "Floppy Drive"

Case DRIVE_FIXED

rtn = "Hard Drive"

Case DRIVE_REMOTE

rtn = "Network Drive"

Case DRIVE_CDROM

rtn = "CD-ROM Drive"

Case DRIVE_RAMDISK

rtn = "RAM Disk"

Case Else

rtn = ""

End Select





If rtn <> "" Then

strMessage = strMessage & vbCrLf & "Drive " & strDrive & " is type: " & rtn

End If

Next intCnt

MsgBox (strMessage)