51Testing软件测试论坛

标题: qtp删除新建文本文件没有权限的问题 [打印本页]

作者: suifengpiao 时间: 2007-2-10 15:53
标题: qtp删除新建文本文件没有权限的问题
代码如下：
runfile("d:\a.txt")

function runfile(url)
Dim fso,f
Dim flag
Dim file1,f1
set fso=createobject("scripting.filesystemobject")
flag=fso.fileexists(url)//判断文件存不存在
If  flag=false Then
reporter.ReportEvent 0,"文件不存在","succeed"
Set file1=CreateObject("Scripting.FileSystemObject")
Set f1=file1.CreateTextFile("d:\a.txt",true)
reporter.ReportEvent 0,"文件创建成功","succeed"
runfile("d:\a.txt")
else
                           set f=fso.getfile(url)
                           fso.deletefile(url)'//删除文件
                           reporter.ReportEvent 0,"文件删除成功","succeed"
End If
end function
运行这段代码时，文件存在的情况下没有问题，文件不存在新建没有问题，但是删除的时候会弹出没有权限的对话框，高手帮帮忙解决一下

作者: 风过无息 时间: 2007-2-11 10:49
a.txt文件是不是已经打开了？
在我本地是可以删除的。

作者: suifengpiao 时间: 2007-2-11 12:38
首先先谢谢版主
我没有打开文件，因为文件开始不存在，只运行了代码会出现这个错误，版主你用的是这段代码吗？不是的话，把你的代码帖出来看看

[ 本帖最后由 suifengpiao 于 2007-2-11 12:41 编辑 ]

作者: hxa2010 时间: 2007-2-12 09:33
runfile("d:\a.txt")

function runfile(url)
Dim fso,f
Dim flag
Dim file1,f1
set fso=createobject("scripting.filesystemobject")
flag=fso.fileexists(url)       '判断文件存不存在
      If  flag=false Then
            reporter.ReportEvent 0,"文件不存在","succeed"
            Set file1=CreateObject("Scripting.FileSystemObject")
            Set f1=file1.CreateTextFile("d:\a.txt",true)
            reporter.ReportEvent 0,"文件创建成功","succeed"
            systemutil.Run "d:\a.txt"
      else
                           set f=fso.getfile(url)
                           fso.deletefile(url)             '删除文件
                           reporter.ReportEvent 0,"文件删除成功","succeed"
      End If
end function
楼主只需将原来的runfile("d:\a.txt")部分替换成systemutil.Run "d:\a.txt"就不会有提示了,如果楼主在创建文件后根本不想打开文件,那么只需去掉红色部分即可sdlkfj2

[ 本帖最后由 hxa2010 于 2007-2-12 09:36 编辑 ]

作者: Coffey111111 时间: 2007-2-12 14:34
对大，hxa2010说的对大，要将脚本中改为红色的，不然会出错的，如果象LZ那样写的话我任务是会出现死循环的，不停的调用runfile函数，不知道大家是如何理解此错误？sdlkfj5

作者: suifengpiao 时间: 2007-2-25 10:13
放假好长时间没有来，问题解决，谢谢大家的支持，祝大家新年快乐，工作顺利，身体健康

作者: hehemeimei 时间: 2007-6-18 17:41

原帖由 suifengpiao 于 2007-2-25 10:13 发表
放假好长时间没有来，问题解决，谢谢大家的支持，祝大家新年快乐，工作顺利，身体健康

不知道你是怎么解决的，我也出现类似的问题了，希望能给以解答。

作者: skyhen 时间: 2007-6-19 17:29
runfile("d:\a.txt")

function runfile(url)
Dim fso,f
Dim flag
Dim file1,f1
set fso=createobject("scripting.filesystemobject")
flag=fso.fileexists(url)//判断文件存不存在
      If  flag=false Then
            reporter.ReportEvent 0,"文件不存在","succeed"
            Set file1=CreateObject("Scripting.FileSystemObject")
            Set f1=file1.CreateTextFile("d:\a.txt",true)
            f1.close
            reporter.ReportEvent 0,"文件创建成功","succeed"
            runfile("d:\a.txt")
else
      set f=fso.getfile(url)
      fso.deletefile(url)'//删除文件
      reporter.ReportEvent 0,"文件删除成功","succeed"
      End If
end function
楼主只需在 Set f1=file1.CreateTextFile("d:\a.txt",true) 下面添加一句f1.close就可以实现创建文件和删除文件的功能了。各位可以不妨试一下

作者: suifengpiao 时间: 2007-6-19 18:00
skyhen
向你学习

作者: 心兰 时间: 2014-11-7 16:27
找到文件，右键选择属性-安全，点击高级按钮，点击有效权限页签，在组或用户名的右侧点击“选择”按钮，弹出框后在“输入要选择的对象名称”输入框中输入管理员账户账号或当前账户的账户，点击确定，即可以对有效权限进行修改，有删除权限后，再执行脚本一次，就可以删除新建的文本文件了C:\Users\gafis\Desktop\1.png

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)