代碼如下例所示，假設要刪除的文件夾是在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)
