como saber si hay disco en a:

gil
19 de Enero del 2004
Hola todos, desde ya gracias por su ayuda.
quisiera saber como saber si existe un diskete en la unidad a: he hecho un programa para que el usuario pueda grabar informacion en un diskette, trate conh la ruta, pero no sale como yo quiero... gracias

mena
19 de Enero del 2004
pues una forma rápida de saberlo es atrapando el error si no encuentra el disco en A: y quieres leer o escribir en A: sin que exista un disco te manda un error lo atrapas y tu muestras un mensaje que diga "NO existe disco de 3 1/2' "


sdemingo
19 de Enero del 2004
Hola,

la manera limpia para hacer esto es....

Private Sub Form_Load()

Dim unidad As Drive
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

For Each unidad In fso.Drives
If unidad.IsReady = True Then
Select Case unidad.DriveType
Case Removable
MsgBox "Existe un disco dentro de la disketera"
End Select
Else
If unidad.DriveType = Removable Then
MsgBox "Inserte un disco en la unidad a: "
End If
End If
Next

End Sub

Deberás añadir la referencia Microsoft Scripting Runtime

Saludos
sdemingo