Dim currDate, objShell, intReturn, srcFolder, objFSO, srcFolders, ConvertDate, strLog
Set objShell = WScript.CreateObject("WScript.Shell") Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
intReturn = 0
currDate = DateAdd("d", 0 , Date) ' 2007-08-30 형식으로 된다. ConvertDate = ConvertDate8(currDate) ' 날짜를 8자리로 변경 srcFolder = "C:\BackUp_ftp\Update"
If objFSO.FolderExists(srcFolder & "\" & ConvertDate ) Then ' 현재 날짜의 폴더가 존재하면 그 폴더를 압축한다. objShell.Run("arj32 a -r " & ConvertDate & " " & ConvertDate) strLog = "1 개의 파일이 압축되었습니다. - " & ConvertDate & ".arj" & vbCrLf Else strLog = "업데이트가 없습니다." & vbCrLf End If
Function ConvertDate8(Byval currDate) ' ex) 2007-08-30 를 20070830 로 변경 If IsDate(currDate) Then ConvertDate8 = Replace(FormatDateTime(currDate, 2), "-", "") Else ConvertDate8 = "" End If End Function
압축하는 스크립트
Dim currDate, objShell, intReturn, srcFolder, objFSO, srcFolders, ConvertDate, strLog
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
intReturn = 0
currDate = DateAdd("d", 0 , Date) ' 2007-08-30 형식으로 된다.
ConvertDate = ConvertDate8(currDate) ' 날짜를 8자리로 변경
srcFolder = "C:\BackUp_ftp\Update"
If objFSO.FolderExists(srcFolder & "\" & ConvertDate ) Then ' 현재 날짜의 폴더가 존재하면 그 폴더를 압축한다.
objShell.Run("arj32 a -r " & ConvertDate & " " & ConvertDate)
strLog = "1 개의 파일이 압축되었습니다. - " & ConvertDate & ".arj" & vbCrLf
Else
strLog = "업데이트가 없습니다." & vbCrLf
End If
Function ConvertDate8(Byval currDate) ' ex) 2007-08-30 를 20070830 로 변경
If IsDate(currDate) Then
ConvertDate8 = Replace(FormatDateTime(currDate, 2), "-", "")
Else
ConvertDate8 = ""
End If
End Function
Dim objLog
Set objLog = objFSO.OpenTextFile(srcFolder & "\log\Compress_" & Replace(FormatDateTime(Date, 2), "-", "") & ".log", 2, True) ' 로그파일 남기기
objLog.Write strLog
objLog.Close
'개발이야기' 카테고리의 다른 글