다음은 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"
------------------------------------------
출처 : 네이버 지식인
'기타' 카테고리의 다른 글
Windows SSL 리눅스로 변환 (0) | 2014.11.04 |
---|---|
동영상 속도 조절 Myspeed Player (0) | 2014.01.13 |
상위기관 네임서버 호스틍 등록확인 (0) | 2013.01.17 |
SSL 변환 (pem > pfx , p7b > pem) (0) | 2012.02.14 |
드디어 티스토리 를...!! (0) | 2011.10.31 |