如何用QTP脚本删除一个文件夹？

代码如下例所示，假设要删除的文件夹是在C:drive.
如何用QTP脚本删除一个文件夹：
Dim strDrive, strfoldername,objFSO, objFolder, strPath
strDrive = “c:” ‘你要删除的文件夹所在的盘符
strfoldername=”test” ‘你要删除的文件夹名
strPath= strDrive&strfoldername
‘ 创建FileSystemObject.
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
On Error Resume Next ‘Incase folder is not found
objFSO.DeleteFolder(strPath)