[原创]qtp用Vbscript进行文件对象…

最新推荐文章于 2025-07-09 23:51:45 发布

achang21

最新推荐文章于 2025-07-09 23:51:45 发布

阅读量774

点赞数

CC 4.0 BY-SA版权

分类专栏： QTP测试工具

本文链接：https://blog.youkuaiyun.com/achang21/article/details/11702537

QTP测试工具专栏收录该内容

77 篇文章

订阅专栏

本文详细介绍了使用QTP脚本和VBS进行文件和文件夹的打包、创建、读取、判断操作的方法，包括使用XStandard.Zip对象进行文件打包、通过FileSystemObject对象进行文件夹文件数量和文件名的获取、创建和删除、读取文件内容以及创建新文件等。同时提供了实例代码，便于开发者理解和实践。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本帖子为本人原创，转载请注明作者：Cheers Li 以及网络来源:

1.QTP 调用 xstadard 对文件/文件夹打包实例

QTP 脚本如下：

Dim objZip
set objZip=createobject("XStandard.Zip")

objZip.Pack "C:\Temp\original","C:\Temp\zip\zipbmp01.zip",True,"CheersLi测试"
Set objZip=nothing

更多参考: http://hi.baidu.com/xuyanbin/blog/item/de96a63eea224fff828b130f.html

2.qtp用Vbscript进行文件对象操作脚本总结

大概总结了下,格式也不想再改了.不用的地方可以注释掉.

Set fso=createobject("Scripting.FileSystemObject")
      '===================获取文件夹文件数量和文件名,并打印出来=================
    set f= fso.getfolder("D:\temp\qtp")
    Dim n
    For each x in f.files
  'msgbox x.name
  a=a&x.name&vbcrlf
  n=n+1
    Next
Print "共有:"&n&"文件,分别为:"&vbcrlf &a
         '===================获取文件夹文件数量和文件名,并打印出来=================

      '===================创建文件夹并判断实例=================

      If (fso.folderexists("D:\temp\qtp\temp")) Then
'        msgbox "File createfile01.txt is exsit,要删除吗 ?",65,"文件提示信息"
       a=msgbox ( "文件夹 ""temp"" 已经存在,要删除吗 ?",65,"文件夹操作提示信息")
'       msgbox a
           If a=1 Then
             fso.deletefolder("D:\temp\qtp\temp")
           End If
       else
        fso.createfolder("D:\temp\qtp\temp")
      msgbox "文件夹temp创建成功!",65,"文件夹操作提示信息"
      End If
    Set fso=nothing

      '===================创建文件夹并判断实例=================

     '===================读取文件内容=================

Set openfile=fso.opentextfile("D:\temp\qtp\details.doc",1)
contents=openfile.readall
print contents


     '=================== 按行读取=================

  Set openfile=fso.opentextfile("D:\temp\qtp\details.txt",1)
    Do until openfile.AtEndOfStream
  strline=openfile.readline
' msgbox strline
  a=a&strline&vbcrlf
    Loop
    print a
      '===================读取文件内容=================

      '===================创建文件并判断实例=================

       If (fso.fileexists("D:\temp\qtp\Newfile.txt")) Then
'        msgbox "File createfile01.txt is exsit,要删除吗 ?",65,"文件提示信息"
        a=msgbox ( "File ""Newfile.txt"" 已经存在,要删除吗 ?",65,"文件提示信息")
'       msgbox a
            If a=1 Then
              fso.deletefile("D:\temp\qtp\Newfile.txt")
            End If
        else
         fso.createtextfile("D:\temp\qtp\Newfile.txt")
       msgbox "文件创建成功!",65,"文件创建提示信息"
       End If
     Set fso=nothing

      '===================创建文件并判断实例=================