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作者: xqgogopp 时间: 2007-12-5 10:27
哈哈 开始报没有权限 但是我在其中加了一句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作者: Jor 时间: 2007-12-5 10:37
..............(不是灌水 真的是无语而已) 作者: xiaoyaoke 时间: 2007-12-5 11:55
你可以用手动模仿这段代码的作用:
新建一个文档
重新打开这个文档
系统会提示你:文档已打开,你将以只读方式打开,呵呵
所以要加f.close作者: walker1020 时间: 2007-12-5 22:22
楼主的问题有点莫名其妙,楼上的回答是正确的