مسير سي دي رام در vb

hamidahmadi

Active Member
براي آنكه من بتوانم در يك متغير مسير آدرس سي دي رام را پيدا كنم چه بايد بكنم لطفا" مرا كمك كنيد. البته در ويژوال بيسيك لطفا" توضيح دهيد و اگر شد با توابع api
 

night11

Member
طریقه پیدا کردن سی دی رام

کد:
Function FindCDROMDrive
' Returns an array of CD ROM drives
    Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
    Dim d, dc, aResult
    ReDim aResult(-1)
    Set dc = fso.Drives
    For Each d in dc
        If d.DriveType = 4 Then
            ReDim Preserve aResult(UBound(aResult)+1)
            aResult(UBound(aResult)) = d 
        End if
    Next
    FindCDROMDrive = aResult
End Function
 

جدیدترین ارسال ها

بالا