<%data=request.form("searchdata")"검색 할 파일 이름 에 포 함 될 문자열 을 가 져 옵 니 다.p=searchfolder(data,"http://yup.go.163.com","c:\")"호출 함수 조회 대상 조회 디 렉 터 리 에 있 는 모든 하위 디 렉 터 리(모든 하위 트 리).%>"디 렉 터 리 검색 함수.function searchfolder(search_data,v_path,c_path) dim file_system,cur_folder,sub_folders,sub_files if not isempty(search_data) and len(search_data)>0 then'검색 문자열 이 비어 있 지 않 은 지 확인 합 니 다. set file_system=createobject("scripting.filesystemobject")'파일 시스템 대상 을 만 듭 니 다. set cur_folder=file_system.getfolder(c_path) ' 현재 디 렉 터 리 대상 을 만 듭 니 다. set sub_folders=cur_folder.subfolders'현재 디 렉 터 리 의 하위 디 렉 터 리 대상 집합 을 만 듭 니 다. for each each_sub_folder in sub_folders ' 하위 디 렉 터 리 집합 을 옮 겨 다 닙 니 다. if each_sub_folder.attributes=16 then ' 하위 디 렉 터 리 의 속성 을 일반 하위 디 렉 터 리 로 확인 합 니 다. sub_v_path=v_path&"/"&each_sub_folder.name sub_c_path=c_path&"\"&each_sub_folder.name ' 현재 하위 가상 절대 경로 와 실제 절대 경 로 를 가 져 옵 니 다. p=search_file(search_data,sub_v_path,sub_c_path) ' 파일 검색 함 수 를 호출 하여 현재 하위 디 렉 터 리 에 있 는 파일 을 문자열 일치 검색 합 니 다. p=search_folder(search_data,sub_v_path,sub_c_path) ' 현재 하위 디 렉 터 리 의 다음 디 렉 터 리 를 재 귀적 으로 검색 합 니 다. end if next set each_sub_folder=nothing set sub_folders=nothing set cur_folder=nothing set file_system=nothing ' 서버 쪽 대상 지우 기. end if end functionfunction search_file(search_data,v_path,c_path) dim file_system,sub_files,sub_file_v_path,sub_out_v_path'파일 일치 검색 함수. if not isempty(c_path) then ' 경로 가 비어 있 지 않 은 지 확인 합 니 다. set file_system=createobject("scripting.filesystemobject") set cur_folder=file_system.getfolder(c_path) set sub_files=cur_folder.files'검색 디 렉 터 리 에 있 는 파일 대상 집합 을 만 듭 니 다. for each each_file in sub_files'파일 대상 집합 옮 겨 다 니 기. if instr(each_file.name,search_data)<>0 then ' 문자열 과 파일 이름 이 일치 합 니 다. sub_file_v_path=v_path&"/"&each_file.name ' 사용 가능 한 링크 를 만 들 고 일치 하 는 파일 을 출력 합 니 다. sub_out_v_path=Replace(sub_file_v_path," ","%20") ' 경로 와 파일 이름 에 나타 난 빈 칸 을 바 꿉 니 다. response.write("
"&sub_file_v_path&"") end if next set sub_out_v_path=nothing set sub_file_v_path=nothing set each_file=nothing set sub_files=nothing set file_system=nothing end ifend function
[1]
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다: