▒ 생각한 대로 살지 않으면 살아온 대로 생각하게 될 것이다. ▒

다음은 VBS로 파일을 자르는 예제입니다.

다음 내용을 메모장에 넣고.. 붉은색 자를 파일 부분을 수정하신 후에 a.vbs로 저장합니다.

그런 다음 a.vbs를 마우스 더블클릭으로 실행하시면.. 로그 파일들이 약 5M단위로 잘립니다.

(파란색 부분은 Split할 파일의 용량입니다.)

------------------------------------------

Dim objRead, arrRead
Dim objWrite
Dim i, j
Dim strFile
Dim tSize

Const BLOCK_SIZE = 5024000

strFile = "C:\test\test.TXT"
Set objRead = CreateObject("ADODB.Stream")

objRead.Type = 1
objRead.Open

objRead.LoadFromFile strFile

tSize = objRead.Size

Set objWrite = CreateObject("ADODB.Stream")

j = 1
For i = 1 To tSize Step BLOCK_SIZE
arrRead = objRead.Read(BLOCK_SIZE)
objWrite.Type = 1
objWrite.Open
objWrite.Write arrRead
objWrite.SaveToFile Left(strFile, Len(strFile) - 4) & "-" & j & Right(strFile, 4), 2
objWrite.Close
j = j + 1
Next

objRead.Close
Set objRead = Nothing
Set objWrite = Nothing

MsgBox "end"

------------------------------------------
출처 : 네이버 지식인