윤귀의 우주속 티끌

'//파일 삭제 스크립트

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 oFolder.Files
  If Int(Now()-oFile.DateLastModified)>=nDays Then
    oFile.Delete
  End If
Next 

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