hamidahmadi
Active Member
براي آنكه من بتوانم در يك متغير مسير آدرس سي دي رام را پيدا كنم چه بايد بكنم لطفا" مرا كمك كنيد. البته در ويژوال بيسيك لطفا" توضيح دهيد و اگر شد با توابع api
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