Que tal si utilizas el comando Format de CMD?

Seria de este modo:

Shell "format X: /Q /X" 

Saludos

Prueba asi:

Dim a As Double
a = Shell("cmd.exe /C Format A: /Q /X", 0)

Y asegurate de tener un disquete que pueda ser formateado

Saludos

Bueno, me he hartado de este tema y he hecho este modulo

Es un poco complicado, y esta medio chapuza, pero no consegui hacerlo de otra forma

Asi que aqui va: (En un modulo)

'---------------------------------------------------------------------------------------
' Modulo    : mFormat
' Autor     : Karcrack
' Fecha-Hora: 06/02/2009  17:45
' Finalidad : Formatear una unidad sin interaccion del usuario
' Referencia: MSDN
'---------------------------------------------------------------------------------------
 
Option Explicit
'--------------
Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hwnd As Long, ByVal drive As Integer, ByVal fmtID As Long, ByVal options As Integer) As Long
Private Const SHFMT_OPT_FULL        As Long = 1
Private Const SHFMT_OPT_SYSONLY     As Long = 2
Private Const SHFMT_ID_DEFAULT      As Long = 65535
'--------------
Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
'--------------
Private Declare Function EnumChildWindows Lib "user32.dll" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const BM_CLICK              As Long = &HF5&
 
Private bDone                       As Boolean
 
Public Function Format_Hide(ByVal hwnd As Long, ByVal sDrive As String, Optional ByVal tOpt As Long) As Long
    Dim lRet        As Long
    Dim lDrive      As Long
 
    'Obtenemos un numero valido para nuestra API
    lDrive = Asc(UCase$(Left$(sDrive, 1))) - Asc("A")
    'Establecemos el timer que automaticamente aceptara
    Call SetTimer(0&, 1, 10, AddressOf TimerProc)
    'Llamamos al API
    Format_Hide = SHFormatDrive(hwnd, lDrive, SHFMT_ID_DEFAULT, tOpt)
End Function
 
Private Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    If bDone = False Then
        'Enumeramos todas las ventanas
        Call EnumWindows(AddressOf EnumWindowsProc, 0&)
    End If
End Sub
 
Private Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    'Si es visible...
    If IsWindowVisible(hwnd) <> 0 Then
        'Si contiene el caracter ½, que sale en el texto de la ventana del formato...
        If InStr(1, GetWinText(hwnd), "½", vbTextCompare) > 0 Then
            'Enumeramos sus controles...
            Call EnumChildWindows(hwnd, AddressOf EnumChildProc, 0&)
            'Escondemos la ventana...
            Call ShowWindow(hwnd, 0)
            'Matamos a nuestro timer
            Call KillTimer(0&, 1)
            'Dejamos de listar
            EnumWindowsProc = False
            Exit Function
        End If
    End If
    EnumWindowsProc = True
End Function
 
Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    'Si es el boton iniciar... v- Solo funciona con versiones en Español del Windows
    If GetWinText(hwnd) = "&Iniciar" And GetWinClassName(hwnd) = "Button" Then
        'Avisamos de que ya esta hecho
        bDone = True
        'Apretamos el boton
        Call PostMessage(hwnd, BM_CLICK, 0&, 0&)
        'Apretamos Aceptar
        Call SendKeys("{ENTER}", 100)
        'Dejamos de listar
        EnumChildProc = False
        Exit Function
    End If
    EnumChildProc = True
End Function
 
Private Function GetWinText(ByVal hwnd As Long) As String
    'Creamos el buffer
    GetWinText = String$(260, Chr$(0))
    'Recortamos el buffer y Llamamos al API
    GetWinText = Left$(GetWinText, GetWindowText(hwnd, GetWinText, Len(GetWinText)))
End Function
 
Private Function GetWinClassName(ByVal hwnd As Long) As String
    'Creamos el buffer
    GetWinClassName = String$(260, Chr$(0))
    'Recortamos el buffer y Llamamos al API
    GetWinClassName = Left$(GetWinClassName, GetClassName(hwnd, GetWinClassName, Len(GetWinClassName)))
End Function

Lo he comentado cuanto he podido para que lo entendieras, si no entiendes algo solo has de preguntar

Tiene un par de BUGs, pero no tengo tiempo para repararlos... el bug es que nunca vuelve al VB, porque no se cierra al acabar el formateo.. seria facil de solucionar.. pero no tengo tiempo.. cuando lo tenga intentare solucionarlo

Saludos

Hola Karcrack  probe tu codigo pero no me funciona trate de hacerle un par de cambios pero tampoco dio resultado

Aca te paso un codigo que arme tengo dos problemas
1) el codigo solo funciona cuando la ventana Dar Formato.. esta visible.. yo necesito cargar la ventana y luego manejarla  (probe con SHFormatDrive para cargarla pero el codigo cargo la ventana y nada mas)

2) si la ventana esta visible solo logro hacer click en el boton Iniciar luego no se como manejar la ventana de ADVERTENCIA que aparece

te paso el codigo para ver si te surge una idea es solo un formulario con un boton
la ventana Dar Fomato de Windows debe estar abierta
mil gracias

Lo prometido es deuda:

Saludos