Segmentation and merging of code _vbs text files with VBS

However, it is very slow to find the tens of thousands of addresses to be imported once again, so it is necessary to split it up: (In this TXT file, one address is a row)
Url_split.vbs File Contents:

Copy Code code as follows:

Set FS =createobject ("Scripting.FileSystemObject")
Set gs =createobject ("Scripting.FileSystemObject")
Set f=fs.opentextfile ("Url.txt", 1,true) ' Url.txt is a TXT file to be split, which holds tens of thousands of addresses
N=0
Do While F.atendofstream<>true
N=n+1
Data= ""
Set G=gs.opentextfile (CSTR (n) + ". Lst", 2, True) ' The split file is saved as: 1.lst 2.lst 3.lst ...
If F.atendofstream<>true Then
For a=1 to 1000 ' after split, a file saves 1000 addresses
Data=f.readline
G.writeline data
Next
End If

Loop
F.close
G.close

Oh, this VBS is a unit of behavior to split the file, how to byte as a unit to split the file? , welcome everybody to discuss with me!