|
作者: dewarfing [dewarfing] 论坛用户 | 登录 |
Dim FSO, AFile, AFileStream Dim strSrcDir strSrcDir = "c:\" Set FSO = CreateObject("Scripting.FileSystemObject") set afile=fso.createtextfile(strsrcdir + "123321.txt") Set AFileStream = FSO.OpenTextFile(strSrcDir + "123321.txt",8)//没有权限? AFileStream.WriteLine "aaaaa" 以上为什么会提示没有权限? |
地主 发表时间: 06-02-21 17:56 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon
粤ICP备05087286号