创建日志文件，使用openTextFile是提示无权限

上一篇 / 下一篇 2012-05-03 23:18:40 / 个人分类：每学一结

写一个这样的函数：

Sub WriteLogMsg(str1)
Dim fso,MyFile,Filepath
Set fso = CreateObject("Scripting.FileSystemObject")

Set myFile = fso.CreateTextFile("D:\QTPLog.txt",true)

Set myFile=fso.openTextFile("D:\QTPLog.txt",8,True)

myFile.WriteLine "The count of links is " & str1
myFile.close
Set MyFile=nothing
Set fso=nothing
End Sub

用其他的测试来调用这个函数的时候，在第五行的时候会报错说无权限，原因是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

我用的是第二种可以成功实现