| Pregunta: | 19289 - DETERMINAR SI UN DISKETTE ESTA PROTEGIDO CONTRA ESCRITURA |
| Autor: | Alcides Frank Pimienta Florez |
| Hola amigos, yo otra vez.
Estoy utilizando funciones de la API de Windows para escribir en un archivo .ini (writeprivatestring) y necesito saber la manera de averiguar si un diskette està o no protegido contra escritura. Agradezco las soluciones que me puedan brindar. | |
| Respuesta: | Claudio Romero |
| El siguiente codigo esta en un boton y probado en Visual Basic 5.
Private Sub Command1_Click() 'Tambien se puede utilizar la API GetLastError(), chequeando el 'valor ERROR_WRITE_PROTECT O ERROR_NOT_READY 'Si quieres puedes poner esto en una funcion que devuela V o F. On Error GoTo ControlError Open "a:\PRUEBA" For Append Access Write As #1 Write #1, "Hola" Close #1 'Si pudo escribir es que no esta protegido, entonces borra la prueba Kill "a:\prueba" On Error GoTo 0 ' Desactiva la detección de errores. Exit Sub ControlError: MsgBox (Error(Err.Number)) Exit Sub End Sub | |