我叫陈永达，欢迎来到我的51testing空间！ 才开始使用，想把关于软件测试的一些资料和心得保存于此。 欢迎大家多来参观，多提宝贵意见！

【QTP】判断目录是否存在，并创建目录

上一篇 / 下一篇  2012-10-19 16:19:33 / 个人分类：QTP

查看( 568 ) / 评论( 0 ) / 评分( 0 / 0 )

这也是一个非常常用的小方法

需要用到的Object是FileSystemObject，脚本如下：

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim Fldr
Fldr = "D:\截图"
If (FSO.FolderExists(Fldr)) Then
       Msgbox  "【" & Fldr & "】目录已存在"
Else
    Msgbox  "【" & Fldr & "】目录不存在，新建该目录"
    '在D盘新建一个叫【截图】的目录
    FSO.CreateFolder(Fldr)
End If


FileSystemObject的方法还有很多，可用通过“.”来查看



收藏 举报

TAG: 软件测试 QTP 目录 陈永达

 

评分：0

我来说两句

Open Toolbar