51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 5337|回复: 9
打印 上一主题 下一主题

[原创] qtp删除新建文本文件没有权限的问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-2-10 15:53:10 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
代码如下:
    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
运行这段代码时,文件存在的情况下没有问题,文件不存在新建没有问题,但是删除的时候会弹出没有权限的对话框,高手帮帮忙解决一下

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-2-11 10:49:27 | 只看该作者
a.txt文件是不是已经打开了?
在我本地是可以删除的。
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2007-2-11 12:38:27 | 只看该作者
首先先谢谢版主
我没有打开文件,因为文件开始不存在,只运行了代码会出现这个错误,版主你用的是这段代码吗?不是的话,把你的代码帖出来看看

[ 本帖最后由 suifengpiao 于 2007-2-11 12:41 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2007-2-12 09:33:47 | 只看该作者
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 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2007-2-12 14:34:56 | 只看该作者
对大,hxa2010说的对大,要将脚本中改为红色的,不然会出错的,如果象LZ那样写的话我任务是会出现死循环的,不停的调用runfile函数,不知道大家是如何理解此错误?sdlkfj5
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2007-2-25 10:13:44 | 只看该作者
放假好长时间没有来,问题解决,谢谢大家的支持,祝大家新年快乐,工作顺利,身体健康
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2007-6-18 17:41:51 | 只看该作者
原帖由 suifengpiao 于 2007-2-25 10:13 发表
放假好长时间没有来,问题解决,谢谢大家的支持,祝大家新年快乐,工作顺利,身体健康

不知道你是怎么解决的,我也出现类似的问题了,希望能给以解答。
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2007-6-19 17:29:44 | 只看该作者
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就可以实现创建文件和删除文件的功能了。各位可以不妨试一下
回复 支持 反对

使用道具 举报

该用户从未签到

9#
 楼主| 发表于 2007-6-19 18:00:53 | 只看该作者
skyhen
向你学习
回复 支持 反对

使用道具 举报

该用户从未签到

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

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-8 02:57 , Processed in 0.076561 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表