اذا وضعت قاعدة بيانات على السيدي وابغى البرنامج يق

بسم الله الرحمن الرحيم

قمت بعمل برنامج من سنه تقريبا وواجهتني مشكله عرض ملفات الفيديو من السي دي

والمشكله الاكبر

:blink: كان عندي محركين سي دي

وطبعا اسم المحرك يختلف على حسب عدد البارتشنات على الجهاز

إليك حلي على اساس ملفات الفيديو وانت غير فيه على طلبك :lol:

On Error GoTo BadPoint
Dim cDD As String
Dim Drives As Object, Hlist As New Collection
Dim Drvs As New clsDrive
Set Drives = Drvs.DriveList
For D = 1 To Drives.Count
Hlist.Add Drives.Item(D)
Next D
For D = 1 To Hlist.Count
Drvs.Name = Hlist.Item(D)
If Drvs.DriveType = 5 Then
cDD = Hlist.Item(D)
If Not Dir$(cDD & ":\HardWare\H2.mpg", vbNormal + vbReadOnly + vbSystem + vbArchive) = "" Then MediaPlayer1.FileName = cDD & ":\HardWare\H2.mpg"
ResumePoint:
End If
Next D
Exit Sub
BadPoint:
Err.Clear
GoTo ResumePoint

وهذا ملف الكلاس

بالتوفيق

clsDrive.rar