COMO SE PUEDE FORMATEAR UNA UNIDAD DE FLOPPY - VB-MUNDO

Juan Francisco · #1 (**permalink**) 25-02-2005, 19:27:48

DESEO SABER COMO PUEDO FORMATEAR UNA UNIDAD DE FLOPPY PERO NO QUIERO QUE APARESCA EL MENSAJE DE: "INSERTE EL DISCO EN LA UNIDAD A, PRESIONE CUALQUIERA TECLA PARA CONTINUAR" Y EL MENSAJE AL FINAL DE QUE: "SI DESEA FORMATEAR OTRO DISCO (S/N)".
SI ALGUIEN SABE COMO HACER ESTO POR FAVOR QUE ME PUEDA DAR ALGUNA AYUDA. SE LO AGRADECERIA

YO TENGO LO SIGUIENTE:
Str = Shell("C:\Windows\System32\'format.com a: /q /v:usb1", vbNormalFocus)

ESTO FUNCIONA BIEN PERO NECESITO QUITAR LOS MENSAJES DE ARRIBA MENCIONADO, PARA QUE EL PROCEIMIENTO SEA TRANSPARENTE.

GRACIAS FRANK, SALUDOS

acalanto · #2 (**permalink**) 25-02-2005, 19:37:53

Utiliza el siguiente método

Código:

dim mistr as string
mistr = Shell("rundll32.exe shell32.dll,SHFormatDrive", 1)

Si el parámetro de la función lo cámbias por un '0' te hará un formateo rápido (Discos que contienen datos) y un '2' te lo hará completo y te copia los archivos básicos de sistema.

Juan Francisco · #3 (**permalink**) 01-03-2005, 03:14:01

LO QUE PASA ES QUIERO QUE EL PROCEDIMIENTO AL FORMATEAR LA UNIDAD SEA TRANSPARENTE Y NO ENVIE NINGUN MENSAJE DE WINDOWS Y TAMPOCO PANTALLAS, TIENE QUE SER TRANSPARENTE AL USUARIO.

MUCHAS GRACIAS POR LA AYUDA

FRANK, SI CONOCE DE ALGUN OTRO EJEMPLO, SE LO AGRADECERIA

ATENTAMENTE

FRANK :smt012

acalanto · #4 (**permalink**) 01-03-2005, 07:16:25

Inserta este código en un módulo público y ten en cuenta que una vez llamado el procedimiento, no existe posibilidad de volver atras.

Código:

'Declaraciones de API
Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, ByVal options As Long) As Long


public sub FormatA()
    dim stat as long
    on local error resume next 
    stat = SHFormatDrive(me.Hwnd, 0, &HFFFF, 1)
end sub

PD: Se me olvidaba decirte algo. Este tipo de pruebas, es mucho mejor hacerlas en un equipo en el que no existan datos de importancia, sobre todo por lo que pueda pasar, que ya se sabe que las armas las carga el diablo. No sé si me explico con claridad

Juan Francisco · #5 (**permalink**) 01-03-2005, 19:02:21

GRACIAS POR LA AYUDA, PROBARE LAS INSTRUCCIONES, TENDRE CUIDADO CON EL USO DEL FORMAT, MUCHAS GRACIAS POR EL AVISO Y LA AYUDA

ATENTAMENTE

FRANK
SALUDOS