ASP 파일 이동&삭제

Dim fso                   '파일객체
 Dim rep_dirPath               '/rep폴더 경로
   Dim deleted_dirPath          '/rep/deleted/폴더 경로
   
   Dim del_filePath          '이동전 파일전체경로
   Dim del_file              '이동시킬 파일객체
   Dim del_fileName          '이동시킬 파일명 
      
   rep_dirPath  = Server.MapPath("/Rep/") 
   deleted_dirPath = rep_dirPath & "\deleted\"
   
   del_filePath = replace(pgmid,"/Rep/","")
   del_filePath = replace(del_filePath,"/rep/","")
   del_filePath = replace(del_filePath,"/","\")
   del_filePath = rep_dirPath & "\" & del_filePath
   
   Set fso = CreateObject("Scripting.FileSystemObject")

    If (fso.FileExists(del_filePath)) Then
     set del_file = fso.GetFile(del_filepath)
    del_fileName = del_file.name
    
    '이미 /rep/delete/ 경로에 같은 이름의 파일이 있으면 그파일 삭제 
    if(fso.FileExists(deleted_dirPath & del_fileName)) then 
     Dim same_file                
      set same_file = fso.GetFile(deleted_dirPath & del_fileName)
      same_file.delete
    end if
   
    fso.MoveFile del_filePath, deleted_dirPath
    End if  
 
  Set fso = nothing  
 end if