한토마 게시판 같은 경우 게시판 생성이나 수정시 마다 디렉토리가 생성되고

탬플릿파일을 복사한다.

따라서 게시판 프로그램의 중요한 수정이 있게되면 탬플릿파일수정하고

200개나 되는 각각의 게시판들을 관리자페이지에서 수정해주는 작업을 해야한다.

요거 귀찮아서 sub() 함수를 하나 만들었다.



참고하시고 쓸만하면 쓰시면 되겠다.



<%

strSrcPath = "F:wwwlueBlueBoardV2admin	empleteoard""

strSrcFileName = "write.asp"

strTargetPath = "F:wwwlueBlueBoardV2	est""

strTargetFileName = "write.asp"



call UpdateFilesOfAlldir(strSrcPath,strSrcFileName,strTargetPath,strTargetFileName)







' made by bluesoul 2004.0428



'탬플릿 파일이 있고 실제 서비스파일들은 각각의 디렉토리에 같은 이름으로 존재할때

'일일이 하나씩 수정하지 않고 한번에 수정해준다.



'strSrcPath : 소스파일 패스 예)"F:wwwsoluiBlueBoardadmincreate"" 

'strSrcFileName : 소스파일 이름

'strTargetPath : 타겟디렉토리의 어미폴더, 요아래 모든 서브폴더에 들어있는 파일을 수정하는것이다.

' 예) "F:wwwsoluiBlueBoardoard""

'strTargetFileName : 타겟파일 이름





sub UpdateFilesOfAlldir(strSrcPath,strSrcFileName,strTargetPath,strTargetFileName)





	set objFSO = Server.CreateObject("Scripting.FileSystemObject")

	

	'소스로부터 파일 읽기

	srcPath = strSrcPath

	srcFileName = strSrcFileName

	

	srcFullPath = srcPath&srcFileName

	

	set ts = objFSO.OpenTextFile(srcFullPath)

	

	Do while not ts.AtEndOfStream

		strLineText = ts.readLine

		contents = contents & strLineText & vbcrlf

	loop	

	ts.close

	set ts = nothing

	

	response.write srcFullPath & " 파일을 가지고<br><br>"

	

	'원하는 각폴더의 특정파일에 엎어쓰기

	targetPath = strTargetPath

	targetFileName = strTargetFileName

	

	set objTargetFolder = objFSO.GetFolder(targetPath)

	set colFolders = objTargetFolder.SubFolders

	

	for each objFolder in colFolders

	

		

		targetFullPath = targetPath&objFolder.Name&"""&targetFileName

		

		set ts1 = objFSO.OpenTextFile(targetFullPath,2,true)

		ts1.write(contents)

		ts1.close

		set ts1 = nothing

		

		response.write targetFullPath & " 파일을 업데이트 했습니다.<br>"

	

	next

	

	set colFolders = nothing

	set objTargetFolder = nothing

	set objFSO = nothing



end sub







%>



테스트 페이지는 http://222.112.187.32:9090/test/handle_drive.asp

날짜: 2004-04-28 17:23:12, 조회수: 22443