پیدا کردن درایو CD

[papa_toop]

سلام به دوستان

برنامه ی من هنگام اجرا باید یه فایلی رو روی سیدی چک کنه حالا من باید چطوری سیدی داریو رو پیدا کنم در صورتی که بعضی افراد دوتا درایو برای سیدی دارند

[VBExpress]

سلام

یک لیست از نوع رشته درست کن ... به این صورت :


Dim _cd_drives AsNew List(OfString)


حالا درایوهایی که از نوع سیدی هستند رو تو این لیست قرار بده :


For i AsInteger = 0 ToMy.Computer.FileSystem.Drives.Count - 1
IfMy.Computer.FileSystem.Drives.Item(i).DriveType = DriveType.CDRom Then
_cd_drives.Add(My.Computer.FileSystem.Drives.Item( i).Name)
EndIf
Next


حالا چک کن ببین اون فایلی که مورد نظرت هست تو کدوم درایو هست؟


For j AsInteger = 0 To _cd_drives.Count - 1
IfMy.Computer.FileSystem.FileExists(_cd_drives.Ite m(j) & "masire file moredenazar") Then
'code morede nazaret ...
ExitFor
EndIf
Next

[papa_toop]

دستت درد نکنه