| Pregunta: | 18818 - FORMATEAR DISKETTES |
| Autor: | Roberto Ariel Da Cruz |
| Necesito me informen si es posible formatear diskettes desde dentro de una aplicación realizada con Visual FoxPro 6.0.
Desde ya muchas gracias. | |
| Respuesta: | Celestino Castro Centeno |
| Hola amigo , un diskette se formatea asi.
run format a: | |
| Respuesta: | Antonio Estrada Villegas |
| procedure formatear
shfd_capacity_default = 0 &&' capacidad del drive por default shfd_capacity_360 = 3 &&' 360KB, para 5.25" :-) shfd_capacity_720 = 5 &&' 720KB, para 3.5" : -( shfd_format_quick = 0 &&' formato rápido shfd_format_full = 1 &&' formato completo shfd_format_sysonly = 2 &&' copia solamente los archivos del sistema (Solo Win95) declare integer SHFormatDrive in "SHELL32.DLL" integer, integer, integer, integer local lccaption lccaption = _screen.caption _screen.caption = sys(3) if not "FOXTOOLS" $ upper( set("Library") ) set library to (home()+"FoxTools.Fll") additive endif local lnhwnd hwnd = _whtohwnd( _wfindtitl(_screen.caption) ) _screen.caption = m.lccaption idrive = 0 if hwnd <> 0 then resultado = shformatdrive(hwnd, idrive,shfd_capacity_default, shfd_format_full) endif return A ver si te sirve... | |