Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Detectar el cd introducido en el cd-rom

Visual Basic - Detectar el cd introducido en el cd-rom

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

Detectar el cd introducido en el cd-rom

Publicado por Edgar (193 intervenciones) el 03/07/2004 22:58:18
Hola amigos, quisiera saber como puedo hacer para que mi
sistema detecte cuando el cd este adentro de la unidad y
me muestre por msgbox o cuando no este el cd introducido
en la unidad. Estuve investigando pero es diferente a
muchos ejemplos que se consiguen en el internet ya que
ellos mencionan la deteccion de la unidad de cd-rom mas
no si un cd esta adentro.. Agradezco su ayuda
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
Imágen de perfil de RAUL
Val: 2
Ha aumentado su posición en 97 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Detectar el cd introducido en el cd-rom

Publicado por RAUL (443 intervenciones) el 04/07/2004 00:35:26
puedes hacerlo haciendo un scan en la unidad E: y si encuentra algun archivo pones la variable hayCD=true, si no hayCD=false,
alguien dira si insertas un CD en blanco
Rpta.: que utilidad tendria hacerlo si no te sirve de mucho ya que no contiene naada que seaa de ayuda a tu aplicativo
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

RE:Detectar el cd introducido en el cd-rom

Publicado por Edgar (193 intervenciones) el 04/07/2004 03:18:15
Hola, gracias por la respuesta. No te entendi muy bien la respuesta que me diste, como puedo hacer ese scan a la unidad? como lo codifico? lo que pasa es que eso lo hago ya que el sistema tiene que consultar varias datas que tengo en cd's diferentes entonces el tiene que mostrarme un mensaje de error cuando detecte que no hay ningun disco insertado.... Agradezco de tu ayuda =)
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

Detectar el cd introducido en el cd-rom

Publicado por Wilmen Valles (1 intervención) el 29/05/2013 21:13:38
1
2
3
4
5
6
7
8
9
10
11
12
13
Function DetectarCDr() As String
Dim Fo As New FileSystemObject, Listao As Boolean, UL() As String
UL = Split("D,E,F,G,H,I,J,K,L,M", ",")
For Nro = 0 To UBound(UL)
        If Fo.DriveExists(UL(Nro)) Then
            If Fo.Drives(UL(Nro)).DriveType = CDRom Then
                If Fo.Drives(UL(Nro)).IsReady Then
                    DetectarCDr = UL(Nro) & ":"
                End If
            End If
         End If
Next
End Function

Ojo hay que Agregar la Referencia Microsoft Scrpting Runtime
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar