中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-07 15:22

欢迎新会员 Atticus97　 RSS
共 48,041 主题排行 / 350,128 发帖 / 今日 3 篇 / 48,252 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 初学VBS帮看看这个代码那地方错了（已解决）查看 697　回复 3

楼主 初学VBS帮看看这个代码那地方错了（已解决）发表于 2008-02-27 22:29　·　中国陕西汉中电信

beeny

初级用户

★

积分 136
发帖 49
注册 2007-01-04 08:28
19年会员
UID 75413
性别男

状态离线

dim fso,f1,f2,f3,f4,i,str
set fso=createobject("scripting.filesystemobject")
f1=fso.CreateTextFile("8899.txt")
f2=fso.CreateTextFile("8806.txt")
f3=fso.CreateTextFile("8835.txt")
f4=fso.CreateTextFile("8869.txt")

for i = 1 to 999
str="000" & i
str=right(str,3)
f1.writeline("8899" & str)
f2.writeline("8806" & str)
f3.writeline("8835" & str)
f4.writeline("8869" & str)
next
f1.close
f2.close
f3.close
f4.close
set fso=nothing

[ Last edited by beeny on 2008-2-28 at 12:09 PM ]

附件