VB Script2 파일삭제 스크립트(배치작업 위한) 비베스크립트로 작성된 파일 삭제 스크립트 필요하신 분들은 받으셔서 vbs 확장자로 파일 만드시고 윈도우 스케쥴러 같은데 배치잡 거셔서 사용하세요~ 내부에 대충 수정하시고 ㅎㅎㅎ '//파일 삭제 스크립트 Option Explicit '// 경로지정 Const strRootPath="D:\Ora_data\archive" '// 삭제기준 일자지정 Dim nDays nDays=90 Dim oFSO Set oFSO=CreateObject("Scripting.FileSystemObject") Dim oFolder, oSubFolder Set oFolder=oFSO.GetFolder(strRootPath) '//마지막 수정된 날짜 기준으로 파일확인 후 삭제 Dim oFile For Each oFile In oFold.. 2012. 12. 18. [VB script] 년도, 몇주, 요일 값을 받아와서 날짜 계산하는 함수 Function getReserDate(reserYear,reserWeek,reserWeekDay) yearFirstDay = CDate(reserYear & "-01-01") '해당년의 첫번째 일 firstDayWeek=Weekday(yearFirstDay,2)-1 addDay = (reserWeek-1)*7+reserWeekDay-firstDayWeek '첫번째 일에서 더할 날 수 If reserWeekDay=6 Then addDay=addDay-7 '일요일의 경우 7을 빼줘야 값이 나옴 getReserDate=DateAdd("d",addDay,yearFirstDay) '해당예약일 값 반환 End Function 에휴~ 나쁜머리로 짜니라 고생했네-_-; 주랑 요일 값만 있을경우 날짜 계산하는 함수입니.. 2010. 11. 16. 이전 1 다음