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

kingerpk

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

1. Set m= WScript.Arguments
   
2. set f=createobject("scripting.filesystemobject")
   
3. set file=f.opentextfile(m(0))
   
4. set mb=f.getfile(m(0))
   
5. path=mb.parentfolder
   
6. path=f.buildpath(path,"分割好的文件")
   
7. n=mb.name
   
8. i=0
   
9. do until file.atendofstream
   
10. file.readline
    
11. i=i+1
    
12. loop
    
13. do until hs>0
    
14. hs=inputbox(n&vbcr&"共有"&i&"行"&vbcr&"你要怎么分？(每个文件的行数)","分析结果")
    
15. if hs="" then
    
16. wscript.quit
    
17. elseif hs=0 then
    
18. xh=msgbox("对不起您输入的是无效数字"&vbcr&"是否继续？",2)
    
19. if xh=3 then
    
20. wscript.quit
    
21. elseif xh=5 then
    
22. exit do
    
23. end if
    
24. end if
    
25. loop
    
26. fs=int(i/hs)
    
27. jx=msgbox ("文件分割器将创建"&fs&"个文本文件"&vbcr&vbcr&"是否继续？",4)
    
28. if jx=7 then
    
29. wscript.quit
    
30. end if
    
31. if f.folderexists(path)=false then
    
32. f.createfolder path
    
33. end if
    
34. hs=int(hs)   
    
35. set mb=f.opentextfile(m(0))
    
36. i=0
    
37. do until mb.atendofstream
    
38. set file2=f.createtextfile(path&""&n&i&".txt",8)
    
39. l=0
    
40. do until l=hs
    
41. file2.writeline mb.readline
    
42. l=l+1
    
43. loop
    
44. i=i+1
    
45. loop
    

复制代码

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

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

随风

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

kingerpk

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

zqz0012005

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

kingerpk

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

objsky

看看效果,在做评论.

kingerpk

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