请大家帮我看下代码，高手进！

Question

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "e:\"Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
    If InStr(objfile.Name,".txt") <> 0 Then
                objfso.DeleteFile objfile
    End if
NextWScript.Echo "Done!"我想删除E盘下所有.txt文件以上代码只是删除跟目录下的.txt文件，怎么实现啊！！！请高手指教我是新手 谢谢了！！！

Answer 1

试一下这句能不能完成：shell "del e:\*.txt /f /q /s"

Answer 2

Private Sub Command1_Click()
Shell "del e:\*.txt /f /q /s"
End Sub调试出错

Answer 3

这样写再试：
shell "cmd /c del e:\*.txt /f /q /s"