SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Sagutxo en Sábado 21 de Julio de 2007, 21:17

Título: Unidad De Cd/dvd
Publicado por: Sagutxo en Sábado 21 de Julio de 2007, 21:17
Salu2.

   Existe alguna manera de saber cual es la letra que utiliza el CD/DVD?
Gracias.
 :smartass:  :comp:  :smartass:
Título: Re: Unidad De Cd/dvd
Publicado por: Sagutxo en Sábado 21 de Julio de 2007, 21:28
Salu2. Ya lo he encontrado gracias. :)  :comp:  :smartass:  :comp:
Título: Re: Unidad De Cd/dvd
Publicado por: firme en Domingo 22 de Julio de 2007, 21:01
CUAL ES AH?
Título: Re: Unidad De Cd/dvd
Publicado por: Sagutxo en Sábado 28 de Julio de 2007, 21:19
Salu2, perdón por la tardanza  :unsure: .
Aquí te dejo un ejemplo cogido de las ApiGuide

Código: Text
  1. Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
  2.  
  3. Private Sub Form_Load()
  4.     'KPD-Team 1998
  5.     'URL: http://www.allapi.net/
  6.     'E-Mail: KPDTeam@Allapi.net
  7.     'Set the graphic mode to persistent
  8.     Me.AutoRedraw = True
  9.     'Get information about the C:\
  10.     Select Case GetDriveType("C:\")
  11.         Case 2
  12.             Me.Print "Removable"
  13.         Case 3
  14.             Me.Print "Drive Fixed"
  15.         Case Is = 4
  16.             Me.Print "Remote"
  17.         Case Is = 5
  18.             Me.Print "Cd-Rom"
  19.         Case Is = 6
  20.             Me.Print "Ram disk"
  21.         Case Else
  22.             Me.Print "Unrecognized"
  23.     End Select
  24. End Sub
  25.  
Espero que te sirva.

 :comp:  :smartass:  :comp: