很容易的磁盘格式化

'API声明
Private Declare Function SHFormatDrive Lib "shell32" (ByVal hWnd As Long, ByVal Drive As Long, ByVal fmtID As Long, ByVal options As Long) As Long

’过程
Private Sub FormatDisk(TypeA As Long)
    SHFormatDrive Me.hWnd, 0, 0, TypeA
    
    '类型:
    '0 快速格式化  
    '1 完整格式化
    '2 仅仅复制系统
    
    '驱动器:
    '0= A:
    '1= B:
    '2= C:
End Sub


'使用外部 Shell
Private Sub SimplerFormatDisk()
    Shell "rundll32.exe shell32.dll,SHFormatDrive", vbNormalFocus
End Sub


’示例
Private Sub Form_Load()
    FormatDisk (0)
    SimplerFormatDisk
End Sub