QTP中判断是否存在,并创建目录的代码

来源:互联网 发布:手机修改图片文字软件 编辑:程序博客网 时间:2024/05/17 02:33

Dim FSO

Set FSO = CreateObject("Scripting.FileSystemObject")

 

Dim Fldr

Fldr = "D:\截图"

If (FSO.FolderExists(Fldr)) Then

      Msgbox " 【" & Fldr &"】目录已存在"

Else

      Msgbox "【" & Fldr &"】目录不存在,新建该目录"

     FSO.CreateFolder(Fldr)  //在D盘创建一个叫【截图】的目录

End If 

原创粉丝点击