원격지에서 압축파일을 가져와 압축을 푸는 스크립트

개발이야기 2007. 11. 16. 10:32

베타섭에서 압축한 것을 가져와서 압축을 푸는것.. 주석을 주렁주렁 많이 단다고 좋은 것도 아니고.. 모르는 사항이 있으면 물어보도록~~ ㅡ,.ㅡ; Option Explicit Dim currDate, ConvertDate Dim objFSO, objShell, srcFolder Dim intReturn, ftpLog, strLog currDate = DateAdd("d", 0 , Date) ConvertDate = ConvertDate8(currDate) srcFolder = "C:\xodim\UpdateSrc" Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objShell = WScript.CreateObject("WScript..

압축하는 스크립트

개발이야기 2007. 11. 16. 09:52

업데이트시 해당 파일 및 폴더를 운영하는 섭에 올리기 전에 베타섭에 올려서 테스트를 하게되는데 이것은 그 파일및 폴더를 압축하는 스크립트다. 일단 srcFolder에 현재날짜의 폴더가 존재하여야 압축이 된다. 그리고 압축하는 프로그램이 있어야한다. 여기서는 arj를 이용했다. 받는 곳은 http://www.arjsoftware.com/ 여기다. Option Explicit Dim currDate, objShell, intReturn, srcFolder, objFSO, srcFolders, ConvertDate, strLog Set objShell = WScript.CreateObject("WScript.Shell") Set objFSO = WScript.CreateObject("Scripting.File..