Function createDir(dir)'디렉토리 생성
Dim Fso, strDir
strDir = server.MapPath("\")& dir
Set Fso = Server.CreateObject("Scripting.FileSystemObject") '파일객체 생성
If Not Fso.FolderExists(strDir) Then '폴더가 존재하지 않으면
Fso.CreateFolder(strDir) '폴더를 생성
createDir = True
Else
createDir = False
End If
Set Fso = nothing
End Function
Function deleteDir(dir)'디렉토리 삭제
Dim Fso, strDir
strDir = server.MapPath("\")& dir
Set Fso = Server.CreateObject("Scripting.FileSystemObject") '파일객체 생성
If Fso.FolderExists(strDir) Then '폴더가 존재하면
fso.DeleteFolder(strDir) '폴더를 삭제
deleteDir = True
Else
deleteDir = False
End If
Set Fso = nothing
End Function
Function copyDir(dir,cdir)'디렉토리 복사
Dim Fso, strDir ,strcDir
strDir = server.MapPath("\")& dir
strcDir = server.MapPath("\")& cdir
Set Fso = Server.CreateObject("Scripting.FileSystemObject") '파일객체 생성
If Fso.FolderExists(strcDir) Then '폴더가 존재하면 해당폴더로 복사
Fso.CopyFolder strDir,strcDir
copyDir = True
Else
copyDir = False
End If
Set Fso = nothing
End Function