论坛: 编程破解 标题: 关于VBS代码 复制本贴地址    
作者: 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号