标题: 初学VBS帮看看这个代码那地方错了（已解决） [打印本页]

---

作者: beeny     时间: 2008-2-27 22:29    标题: 初学VBS帮看看这个代码那地方错了（已解决）

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 ]

附件 1: 1.JPG (2008-2-27 22:31, 12.61 K,下载次数： 2)

---

作者: abcd     时间: 2008-2-27 23:27
f1=fso.CreateTextFile("8899.txt")
        f2=fso.CreateTextFile("8806.txt")
        f3=fso.CreateTextFile("8835.txt")
        f4=fso.CreateTextFile("8869.txt")

少set

---

作者: regvip2008     时间: 2008-2-28 10:26
楼上正解！

---

作者: beeny     时间: 2008-2-28 12:08
哦对了！真是的！太大意了，找了半天就是找不到那个地方错了！