qtp删除新建文本文件没有权限的问题

suifengpiao

代码如下：
    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
运行这段代码时，文件存在的情况下没有问题，文件不存在新建没有问题，但是删除的时候会弹出没有权限的对话框，高手帮帮忙解决一下

心兰

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

suifengpiao

skyhen
向你学习

skyhen

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就可以实现创建文件和删除文件的功能了。各位可以不妨试一下

hehemeimei

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

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

suifengpiao

放假好长时间没有来，问题解决，谢谢大家的支持，祝大家新年快乐，工作顺利，身体健康

Coffey111111

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

hxa2010

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 编辑 ]

suifengpiao

首先先谢谢版主
我没有打开文件，因为文件开始不存在，只运行了代码会出现这个错误，版主你用的是这段代码吗？不是的话，把你的代码帖出来看看

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

风过无息

a.txt文件是不是已经打开了？
在我本地是可以删除的。