VBS初学者的作品：txt文件分割器

kingerpk

首先将文本文件拖进脚本文件中

Set m= WScript.Arguments
set f=createobject("scripting.filesystemobject")
set file=f.opentextfile(m(0))
set mb=f.getfile(m(0))
path=mb.parentfolder
path=f.buildpath(path,"分割好的文件")
n=mb.name
i=0
do until file.atendofstream
file.readline
i=i+1
loop
do until hs>0
hs=inputbox(n&vbcr&"共有"&i&"行"&vbcr&"你要怎么分？(每个文件的行数)","分析结果")
if hs="" then
wscript.quit
elseif hs=0 then
xh=msgbox("对不起您输入的是无效数字"&vbcr&"是否继续？",2)
if xh=3 then
wscript.quit
elseif xh=5 then
exit do 
end if
end if
loop
fs=int(i/hs)
jx=msgbox ("文件分割器将创建"&fs&"个文本文件"&vbcr&vbcr&"是否继续？",4)
if jx=7 then 
wscript.quit
end if
if f.folderexists(path)=false then
f.createfolder path
end if
hs=int(hs)   
set mb=f.opentextfile(m(0))
i=0
do until mb.atendofstream
set file2=f.createtextfile(path&"\"&n&i&".txt",8)
l=0
do until l=hs
file2.writeline mb.readline
l=l+1
loop
i=i+1
loop
复制代码

以上是本人练习写的TXT分割器，请高手点评，但有一个地方很疑惑，就WScript.Arguments的用法，我感觉我这里用得很不规范。
还有若是直接双击脚本，就会发出现下标出界的错误，要怎样改进？

[ 本帖最后由 kingerpk 于 2009-5-7 16:05 编辑 ]

kingerpk

恩！等待中！！！！！！！！！！

objsky

看看效果,在做评论.

kingerpk

谢谢！！！
又什么地方可以改进的吗？？？

zqz0012005

if WScript.Arguments.count = 0 then WScript.Quit

kingerpk

马上改！！！！！！！！！

随风

Q：所发代码不止一行时请用 code 把代码扩起来
A：如何用code把代码扩起来 ，请点我。