用以下代码可以调用Windows的格式化窗口来格式化指定的磁盘： Private Const SHFMT_ID_DEFAULT = &HFFFF&
Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hWnd As Long, ByVal Drive As Long, fmtID As Long, Options As Long) As Long '---rive参数为0时指A盘，1指B盘，2指C盘，以此类推 Private Sub Command1_Click() Dim lret As Long lret = SHForm
