QTP无权限写入文本的问题

原来的脚本如下:

If not (fileSystemObj.FileExists(fileName)) Then

    Set logFile = fileSystemObj.CreateTextFile(fileName, True)

End If

Set logFile = fileSystemObj.OpenTextFile(fileName, ForAppending , True,TristateUseDefault)

 

QTP执行的时候总是提示五权限写入文件,最开始在这样写的目的是当发现文件不存在时,先创建一个一个该文件,然后在打开。实际上如果这样操作,CreateTextFile()函数还没有释放对文件的使用,当再次执行OpenTextFile()时就会发生写入冲突的问题。

解决方法有两个:

方法一, OpenTextFile()函数本身提供了当发现打开的文件不存在时是否创建的参数:

Set logFile = fileSystemObj.OpenTextFile(fileName, ForAppending , True,TristateUseDefault)

方法二,CreateTextFile()创建文件完毕,使用close()方法关闭对于文件的使用:

If not (fileSystemObj.FileExists(fileName)) Then

Set logFile = fileSystemObj.CreateTextFile(fileName, True)

logFile.Close()

End If

Set logFile = fileSystemObj.OpenTextFile(fileName, ForAppending , True,TristateUseDefault)

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/Anlegor/article/details/5653292
文章标签: 脚本
个人分类: QTP实践
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭