어떻게 온라인 으로 로 컬 컴퓨터 의 파일 을 조회 합 니까?

바람 에 춤 추 는 파일 조회

    은하 영 동 파일 조회 시스템


 

조회 할 디 렉 터 리 문 자 를 입력 하 십시오:       


조회 결과:

<%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]

좋은 웹페이지 즐겨찾기