ASP 배치 수정 프로그램, FSO 관련 코드 구현
코드 수정의 배치로 수행 해야하는 작은 일이며, 나는 당신과 공유 할 것입니다.
현재 처리 할 수있는 파일 유형 : .asp .inc .htm .html 특정 유형을 직접 수정하고 추가 할 수 있습니다.
프로그램에서 구현 한 함수 : 배치 소스 디렉토리의 파일을 수정하고 대상 디렉토리로 저장합니다.
몇 가지 수정으로 많은 것을 달성 할 수 있습니다!
나는 다른 말을하지 않을 것입니다. 코드는 매우 명확합니다.
<%
'// +------------------------------------------------------------------------- +
'// | 프로그램 이름 : 석재 코드 배치 수정 자 v1.01 |
'// | 다른 산의 돌이 보유한 모든 권리는 침해가 추구 될 것입니다! 재판 할 때 저작권을 표시하십시오 :) |
'// | ---------------------------------------------------------------------------- |
'// | 시스템 : Win2000; 편집자 : editPlus; 들여 쓰기 도구 : 탭; 압입 길이 : 8; 글꼴 : 송티 (10pt); |
'// | ---------------------------------------------------------------------------- |
'// | 제작자 : WYC; 창조 시간 : 2004-03-08; |
'// | 작가 : WYC; 작가 : 2004-03-08; |
'// +------------------------------------------------------------------------- +
Server.ScriptTimeout = 500 '스크립트 타임 아웃 시간
'// +------------------------------------------------------------------------- +
'// | 배치 수정 함수 |
'// | ---------------------------------------------------------------------------- |
'// | 속성 : path_from 소스 파일 디렉토리 path_to 대상 파일 작업 디렉토리 |
'// | ---------------------------------------------------------------------------- |
'// | 반환 값 : 없음 |
'// | ---------------------------------------------------------------------------- |
'// | 프로그램 흐름 : ... |
'// | ---------------------------------------------------------------------------- |
'// | 작가 : WYC; 쓰기 시간 : 2004-03-08; |
'// +------------------------------------------------------------------------- +
서브 미드 파일 (path_from, path_to)
list_from = path_from '스토리지 현재 소스 작업 디렉토리
list_to = path_to '저장 현재 대상 작업 디렉토리
set fso = createobject (scripting.filesystemobject)
fold = fso.getfolder (list_from) '폴더 개체를 설정하십시오
fc = fold.files의 파일 레코드 세트를 설정하십시오
mm = fold.subfolders의 디렉토리 레코드 세트를 설정하십시오
mm의 각 F2에 대해
set objfile = server.createobject (scripting.filesystemobject)
objfile.createfolder (path_to & / & f2.name) '디렉토리 작성
midfile path_from & / & f2.name, path_to & / & f2.name '재귀 호출
응답. Path_to & / & f2.name & 완성! <br>
다음
FC의 각 F1에 대해
file_from = list_from & / & f1.name '파일 주소 만들기 (소스)
file_to = list_to & / & f1.name '파일 주소 만들기 (to)
fileExt = lcase (오른쪽 (f1.name, 4)) '파일 유형을 얻습니다
if fileExt = .asp 또는 fileExt = .inc 또는 fileExt = .htm 또는 fileExt = html 인 경우 특정 유형을 직접 수정하고 추가 할 수 있습니다.