| Pregunta: | 6132 - ¿CóMO DETECTAR UN DISCO EN A:? |
| Autor: | Pilar MMF |
| Voy a leer un fichero de un diskette en A:
Pero antes quiero saber si la disquetera (A:) tiene insertado un diskette. Gracias. | |
| Respuesta: | Mariano Laguzzi |
| Bien Facil :
Public Function HayDiskete() As Boolean 'Verifica si hay un diskete puesto en la disketera. On Error GoTo Error ChDrive "A" HayDiskete = True ChDrive "C" 'para que el próximo intento funcione correctamente. Exit Function Error: ChDrive "C" 'para que el próximo intento funcione correctamente. Exit Function End Function | |
| Respuesta: | Pilar MMF |
| Por el tamaño de la respuesta, está en el archivo resp6132.txt. | |
| Respuesta: | J RC |
| Lo mejor es utilizar el control Drive. Lo pones invisible, y cuando quieras comprobar si hay un disquete (por ejemplo, periódicamente con un control Timmer), activas el control de errores y especificas la propiedad DRIVE como A:. Si no hay error, es que hay disquete. Luego vuelves a poner el drive como C: para posteriormente poder volver a hacer la comprobación. | |