以下一段代码运行时为什么报没有权限呢?

xqgogopp

Function CreateFile(sFilename, bOverwrite)

       Set fso = CreateObject("Scripting.FileSystemObject")

      Set CreateFile = fso.CreateTextFile(sFilename, bOverwrite)

End Function
Set f = CreateFile("d:\emp\hello.txt", True)
Function OpenFile(sFilename, iomode, create)

       Set fso = CreateObject("Scripting.FileSystemObject")

       Set OpenFile = fso.OpenTextFile(sFilename, iomode, create)

End Function
Set f = OpenFile("d:\emp\hello.txt", 2, True)
f.write("abcdef")
f.close

walker1020

楼主的问题有点莫名其妙，楼上的回答是正确的

xiaoyaoke

你可以用手动模仿这段代码的作用：
新建一个文档
重新打开这个文档
系统会提示你：文档已打开，你将以只读方式打开，呵呵
所以要加f.close

Jor

..............(不是灌水 真的是无语而已)   

xqgogopp

哈哈 开始报没有权限 但是我在其中加了一句f.close就是如下这样运行就通过了 为什么创建一个新的文件然后要把它先关了呢
Function CreateFile(sFilename, bOverwrite)

       Set fso = CreateObject("Scripting.FileSystemObject")

      Set CreateFile = fso.CreateTextFile(sFilename, bOverwrite)

End Function
Set f = CreateFile("d:\emp\hello.txt", True)
f.close
Function OpenFile(sFilename, iomode, create)

       Set fso = CreateObject("Scripting.FileSystemObject")

       Set OpenFile = fso.OpenTextFile(sFilename, iomode, create)

End Function
Set f = OpenFile("d:\emp\hello.txt", 2, True)
f.write("abcdef")
f.close