谁知道为什么没有权限吗

vincenthan

Dim a1,a2,a3,a4,a5,a6
Set a1=createobject("scripting.filesystemobject")
Set a2=a1.createfolder("e:\han")
Set a3=a1.createtextfile("e:\han\8.txt")
Set a6=a1.getfolder("e:\han")
Set a4=a1.getfile("e:\han\8.txt")
Set a5=a1.opentextfile("e:\bin.txt",2,true)
a5.writeline("the last modified time is '"&a4.datelastmodified&"'")
a5.close
If a4.datelastmodified="2007-8-13" Then
        a4.delete
        else
        a4.copy("e:\8.txt")
    a6.delete
End If
执行到a6.delete那句的时候总是提示没有权限，谁知道为什么吗

zengfanjin5588

同感

vincenthan

sdlkfj3 学到了，对10楼11楼都表示感谢

winfood

原帖由 vincenthan 于 2007-8-14 17:40 发表
我想问一下5楼，我改代码时没有写释放a2的代码，只释放了a3，程序一样成功执行完了，是为什么呢，如果关联到对象的话，那么a2不是也应该删除吗

这应该是调用FileSystemObject里面的方法造成的，就是调用CreateFolder和CreateTextFile时有所不同。我没有深入研究过，10楼surlary的解释应该是对的。

CreateFolder在创建完文件夹之后，可能不再对文件夹锁定了；而CreateTextFile可能会继续所定新创建的文件。

BTW，不管实际情况如何，在程序中应该：
把一个资源仅分配给一个对象，比如Set obj1 = objFSO.GetFolder("***")之后就不要在把该文件夹分配给obj2了；
在程序结束的时候释放那个对象，Set obj1 = Nothing；sdlkfj2

surlary

我的看法是，当你CreateTextFile后，你就可以通过a3对这个文件进行写入了，当你在执行Close方法以前，a3都对这个文件有独占权限，所以才删除目录时会出现权限不够。

vincenthan

我想问一下5楼，我改代码时没有写释放a2的代码，只释放了a3，程序一样成功执行完了，是为什么呢，如果关联到对象的话，那么a2不是也应该删除吗

zj521929

同意楼上的

suifengpiao

5楼和6楼得正解

nbawz

Dim a1,a2,a3,a4,a5,a6
Set a1=createobject("scripting.filesystemobject")
Set a2=a1.createfolder("e:\han")
Set a3=a1.createtextfile("e:\han\8.txt")
Set a2=a1.getfolder("e:\han")
Set a3=a1.getfile("e:\han\8.txt")
Set a4=a1.opentextfile("e:\bin.txt",2,true)
a4.writeline("the last modified time is '"&a3.datelastmodified&"'")
a4.close
If a3.datelastmodified="2007-8-13" Then
        a3.delete
        else
         a3.copy("e:\8.txt")
    a2.delete
End If


代码改一下就可以了！！！：）

winfood

原帖由 vincenthan 于 2007-8-14 10:32 发表
Dim a1,a2,a3,a4,a5,a6
Set a1=createobject("scripting.filesystemobject")
Set a2=a1.createfolder("e:\han")
Set a3=a1.createtextfile("e:\han\8.txt")
Set a6=a1.getfolder("e:\han")
Set a4=a1.getf ...

因为你在脚本的第3、4两行分别把文件夹han和文件8.txt赋给了对象变量a2和a3，在删除语句之前没有释放这些对象。
你可以不必赋值给a2和a3，写成：
Set a1=...
a1.createfolder("e:\han")
a1.createtextfile("e:\han\8.txt")
... ...

或者，在a6.delete之前把a2，a3释放掉：
... ...
Set a2 = Nothing
Set a3 = Nothing
a6.delete
... ...

wangyong3552128

VB呀，你了解一下delete方法，能不能直接删除hen文件夹。

vincenthan

在QTP中

bobile

路过，你是在什么环境下执行的呢