嘻皮客娱乐学习网

标题: 如何用QTP脚本创建一个文件夹 [打印本页]

作者: 一江山 时间: 2014-11-30 16:59
标题: 如何用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 ‘ 如果文件夹已经存在
‘ 用strPath创建一个文件夹
Set objFolder = objFSO.CreateFolder(strPath)
If err.Number = 58 then    ‘VB script运行时异常，如果文件已经存在
msgbox “Folder  already exist  at” & strPath
exitTest
End If
msgbox “Folder  created is at ” & strPath

欢迎光临嘻皮客娱乐学习网 (http://www.xipick.com/)