[ASP] FILE객체와 FOLDER객체

출처 : http://blog.naver.com/naby925?Redirect=Log&logNo=40091438937
http://www.starcraft.or.kr/bbs/board.php?bo_table=asp_study&wr_id=186&page=5&page=5
http://blog.naver.com/megadeth75?Redirect=Log&logNo=100037822760
http://blog.naver.com/happyyhj/52119357

재귀호출 사용해서 하위폴더 및 파일 핸들링해보겠다고 삽질했는데;;
명령어 하나로 너무 쉽게 해결되버려서 좌절;;;

ASP 폴더이동,파일이동,파일삭제

Set fso = Server.CreateObject("Scripting.FileSystemObject")
'폴더이동
fso.MoveFolder  "절대경로\원본폴더명","절대경로\타겟폴더명"
'파일이동
fso.MoveFile  "절대경로\원본파일명","절대경로\타겟파일명"
'폴더삭제
fso.DeleteFolder("절대경로\원본폴더명")

폴더이동 및 삭제의 경우 하위폴더 포함하여 이동,삭제 됩니다. [출처] ASP 폴더이동,파일이동,폴더삭제|작성자 초코케익:: 폴더 이동시 하위 모든 파일들도 같이 이동됨-_-;

		'실행
		'bResult = CopySubFolders( folders, parent_folder_path_from, parent_folder_path_to)
		bResult = MoveSubFolders( fso, folders, parent_folder_path_from, parent_folder_path_to)

		'폴더이동
		Function MoveSubFolders( fso, folders, parent_folder_path_from, parent_folder_path_to)
			Set SubFolders = folders.SubFolders
			i = 1
			For Each Folder in SubFolders
				path_from = parent_folder_path_from & "\" & folder.name
				'path_to = CheckExistFolder( parent_folder_path_to, folder.name & "\" )
				path_to = parent_folder_path_to & "\" 
				'Response.Write "

" & i & "path_from:" & path_from
				'Response.Write "

" & i & "path_to:" & path_to
				fso.MoveFolder  path_from, path_to
				i = i + 1
			Next
		End Function

		'폴더복사
		Function CopySubFolders( folders, parent_folder_path_from, parent_folder_path_to)
			Set SubFolders = folders.SubFolders
			If SubFolders.Count <> 0 Then
				For Each Folder in SubFolders					
					path_from = parent_folder_path_from & "\" & folder.name
					path_to = CheckExistFolder( parent_folder_path_to, folder.name & "\" )
					bResult = CopyFiles( Folder, path_from, path_to)
					
					If ( ( ( Folder.SubFolders).Count) <> 0) Then 
						bResult = CopySubFolders( Folder, path_from, path_to)
					End If
					i=i+1
				Next
			Else
				Response.Write "해당 폴더내에 다른 폴더가 없습니다.

"
			End If			
			CopySubFolders = TRUE
		End Function

		'파일목록 출력
		Function CopyFiles( folders, path_from, path_to)
			Response.Write "

 CopyFiles path_from = " & path_from
			Response.Write "

 CopyFiles path_to = " & path_to
			'해당 폴더 내 파일 목록 받아오기
			Set files = folders.Files 
			'해당 폴더 내 파일이 있다면...
			If files.Count <>0 then
				Response.Write "

해당 폴더 내에 있는 파일 수: "& files.Count & "

"
				i=1
				'해당 폴더 내 파일 목록 출력
				For Each file In files
					Response.Write i&". "&file.name&" ("&file.type&")

"
					i=i+1
				Next
			'해당 폴더 내 파일이 없다면..
			Else
				Response.Write "

해당 폴더 내 파일이 없습니다.

"
			End If   
		End Function

		'폴더 존재여부 체크후 없으면 생성
		Function CheckExistFolder( site_root_folder_path, site_folder_path )	
			arrayFolderPath = Split( site_folder_path, "\")
			resultFolderPath = site_root_folder_path
			Response.Write "

" & Ubound(arrayFolderPath)
			IF Ubound(arrayFolderPath) > 0 Then
				Dim Fso
				Set Fso = Server.CreateObject("Scripting.FileSystemObject")
				
				number = Ubound(arrayFolderPath)
				For i=0 to number
					resultFolderPath = resultFolderPath + "\" + arrayFolderPath(i)
					If Not Fso.FolderExists( resultFolderPath) Then
						resultFolderPath = Fso.CreateFolder(resultFolderPath)
						'Response.Write resultFolderPath & "created folder well"
					Else
						'Response.Write resultFolderPath & "Failed to create folder"
					End If
				Next
				Set Fso = nothing
				
			End IF
			CheckExistFolder = resultFolderPath
		End Function