Visual Basic - Necesito su ayuda con este codigo

Life is soft - evento anual de software empresarial
   
Vista:

Necesito su ayuda con este codigo

Publicado por Angel (15 intervenciones) el 08/12/2007 18:49:32
Private Sub Command1_Click()
List1.Clear
Dim d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives

For Each d In dc
s = s & d.DriveLetter & " - "
Select Case d.DriveType
Case 0: n = "Desconocido"
Case 1: n = "Separable" ' Unididad de discos
Case 2: n = "Fijo" ' HD
Case 3: n = "Red"
Case 4: n = "CD-ROM"
Case 5: n = "Disco RAM"
End Select

Select Case n
Case "Separable"
If d = "A:" Then
List1.AddItem "(" & d & ")" & " Disquete"
Else
List1.AddItem "(" & d & ")" & " Extraible"
End If
Case "Fijo"
List1.AddItem "(" & d & ")" & " Disco Duro"
Case "CD-ROM"
List1.AddItem "(" & d & ")" & " CD-ROM/DVD"
Case "Red"
List1.AddItem "(" & d & ")" & " Red"

End Select

Next

End Sub

Utilizo este codigo para cargar las unidades en un listbox, pero no encuentro como hacerle para saber si es unidad de CD-ROM , CDR , DVD , o DVDR, ¿De que manera puedo saberlo?

Ayudenme. Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Necesito su ayuda con este codigo

Publicado por J@m (190 intervenciones) el 10/12/2007 15:57:37
Pues utiliza mejor el control DriveListBox.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar