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

شروع موضوع توسط hamidahmadi ‏12 ژانویه 2006 در انجمن منطق و الگوریتم برنامه‌نویسی

  1. hamidahmadi

    hamidahmadi Member

    ارسال‌ها:
    138
    تشکر شده:
    247
    امتیاز دستاورد:
    16
    براي آنكه من بتوانم در يك متغير مسير آدرس سي دي رام را پيدا كنم چه بايد بكنم لطفا" مرا كمك كنيد. البته در ويژوال بيسيك لطفا" توضيح دهيد و اگر شد با توابع api
     
    نوشته شده توسط hamidahmadi در ‏12 ژانویه 2006
  2. night11

    night11 Member

    ارسال‌ها:
    247
    تشکر شده:
    59
    امتیاز دستاورد:
    16
    طریقه پیدا کردن سی دی رام

    کد (Text):

    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
     
     
    نوشته شده توسط night11 در ‏12 ژانویه 2006

به اشتراک بگذارید