none
Identificar Driver de CD RRS feed

Todas as Respostas

  •  

    Dim DInfo As IO.DriveInfo()

    Dim Ini As String

    DInfo = IO.DriveInfo.GetDrives()

    For I = 0 To DInfo.Length - 1

    Dim s As String = DInfo(I).DriveType.ToString

    s = Vb.Left(s, 5)

    s = UCase(s)

    If s = "CDROM" Then

    Dim Dv As String = DInfo(I).Name

    Ini = Dv

    End If

    Next

    Process.Start(Ini)

    End

    sábado, 26 de abril de 2008 16:50