shakheh CD-RM dar VB

parshia · Dec 10, 2003

سلام

che jouri misheh drive CD-RM ra dar vb peyda kard. mamnounam

omidak · Dec 10, 2003

سلام درست متوجه نشدم ميخوايي بدوني كدوم Drive هشتش؟ :roll:

کد:

Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
    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 strDrive As String
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 &lt;> "" Then
    strMessage = strMessage &amp; vbCrLf &amp; "Drive " &amp; strDrive &amp; " is type: " &amp; rtn
End If
Next intCnt
MsgBox (strMessage)

اینو میخوای؟ با این میتونی هر درایوی که بخوای میتونی بگیری :wink: