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
复制代码