como saber si hay disco en a:
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
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
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' "
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
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