Validar...
Hola como hago para validar que exista un Diskette insertado en la unidad de Drive o un CD en la Unidad de CD, es para cuestiones de Respaldo de Datos.
1 Respuesta
Respuesta de falvarez
1
Usa la función DISKSPACE...:
On error
IF DISKSPACE('A') = -1
WAIT 'INSERTE UN DISQUETE...' WIND NOWAIT
ENDIF
TECLA=0
DO WHILE DISKSPACE('A') = -1 AND TECLA#27
TECLA=INKEY() && Entra en un bucle infinito hasta que inserta un diskette o pulsa ESCAPE
ENDDO
IF TECLA#27 && Si insertó un diskette, hago el respaldo
** HACER EL RESPALDO...
Endif
Espero haberte ayudado.
Un Saludo
Fernando Alvarez
La Pampa - Argentina
On error
IF DISKSPACE('A') = -1
WAIT 'INSERTE UN DISQUETE...' WIND NOWAIT
ENDIF
TECLA=0
DO WHILE DISKSPACE('A') = -1 AND TECLA#27
TECLA=INKEY() && Entra en un bucle infinito hasta que inserta un diskette o pulsa ESCAPE
ENDDO
IF TECLA#27 && Si insertó un diskette, hago el respaldo
** HACER EL RESPALDO...
Endif
Espero haberte ayudado.
Un Saludo
Fernando Alvarez
La Pampa - Argentina
