标题: 初学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 KiB,下载次数： 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
哦对了！真是的！太大意了，找了半天就是找不到那个地方错了！