【vbs】データ間引き

set ofsw = createobject("scripting.filesystemobject")
set ofolder = ofsw.getfolder("c:\work")
set ofilew = ofolder.createtextfile("testw.txt")

set ofsr = createobject("scripting.filesystemobject")
set ofiler = ofsr.opentextfile("c:\work\testr.txt")

n = 0

do while ofiler.atEndOfLine <> True
n = n + 1
m = n mod 4
mtext = ofiler.readline
if m=0 then
ofilew.writeline(mtext)
end if
loop

ofiler.close
ofilew.close