Serach at CD\ROM

[morika]

سلام
من می خوام وقتی برنامم اجرا میشه اول درایو سی دی رو برگرده و اگه فایل مربوطه رو پیدا کرد پیغام بده
حالا شاید تو همه سیستم های دنیا اسم درایو سی دی H نباشه
چه جوری بهش بگم که درایو سی دی رو بگرد نه درایو H رو؟
ممنون

[anooshiran]

سلام دوست عزيز

با كدهاي زير ميتواني cd drive هاي هر كامپيوتر را پيدا كني




Dim str As New System.Text.StringBuilder
Dim info() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives
For Each drv As System.IO.DriveInfo In info
If drv.DriveType = IO.DriveType.CDRom Then
str.Append(String.Format("Drive {0} Ready = {1} DriveType (2)", drv.Name, drv.IsReady, drv.DriveType))
str.Append(vbCrLf)
End If
Next
MsgBox(str.ToString)