如何在线查询本地机的文件？

程序员文章站 2022-10-28 11:09:20

随风起舞之文件查询</title...</div> <div class="content"> <html><?xml:namespace prefix="o" ns="urn:schemas-microsoft-com:office:office"?> <head> <title>随风起舞之文件查询</title> </head> <body> 宋体" color="red" size="5"> 星河影动之文件查询系统 <hr> <form method="post" action="search.asp"> 请输入要查询的目录文字: <input type="text" name="search_data" size="20"> <input type="submit" value="查询" name="b1"> <input type="reset" value="重写" name="b2"> </form> <hr> 查询结果: <% data=request.form("search_data") ' 得到要查询的文件名称所要包含的字符串. p=search_folder(data,"http://yup.go.163.com","c:\") ' 调用函数查询目标查询目录下的所有子目录（所有子树）. %> <script language="vbscript" runat=server> ' 目录检索函数. function search_folder(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 function function 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("<a href=" & sub_out_v_path & _ ">"&sub_file_v_path&"</a>") 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 if end function </script> <hr> </body></html> [1] </div> <div class="info-pre-next"> 上一篇： <a href="/article/1895333.html"> 给大家介绍一下红薯煮稀饭的步骤。 </a> 下一篇： <a href="/article/1895335.html"> 中国地质大学什么档次的211？考上中国地质大学厉害吗？ </a> </div> <div class="wz_tuijian"> 推荐阅读 <ul> <li> <a href="/article/2162387.html" target="_blank" title="Linux中如何查询运行文件的全路径的方法"> <h2> Linux中如何查询运行文件的全路径的方法 </h2> </a> </li> <li> <a href="/article/2078367.html" target="_blank" title="如何查询笔记本电脑的保修期"> <h2> 如何查询笔记本电脑的保修期 </h2> </a> </li> <li> <a href="/article/1996060.html" target="_blank" title="在Linux上如何使用fuser工具来查询文件的用户"> <h2> 在Linux上如何使用fuser工具来查询文件的用户 </h2> </a> </li> <li> <a href="/article/1895334.html" target="_blank" title="如何在线查询本地机的文件？"> <h2> 如何在线查询本地机的文件？ </h2> </a> </li> <li> <a href="/article/1767718.html" target="_blank" title="Linux中如何查询运行文件的全路径的方法"> <h2> Linux中如何查询运行文件的全路径的方法 </h2> </a> </li> <li> <a href="/article/1397034.html" target="_blank" title="请教如何查询系统最近5天生成的txt文件并提供链接给访问者上载"> <h2> 请教如何查询系统最近5天生成的txt文件并提供链接给访问者上载 </h2> </a> </li> <li> <a href="/article/1329634.html" target="_blank" title="如何用php把查询出来的文件导出成excel表格的形式呢"> <h2> 如何用php把查询出来的文件导出成excel表格的形式呢 </h2> </a> </li> <li> <a href="/article/1317608.html" target="_blank" title="如何用php把查询出来的文件导出成excel表格的形式呢"> <h2> 如何用php把查询出来的文件导出成excel表格的形式呢 </h2> </a> </li> <li> <a href="/article/1305700.html" target="_blank" title="如何查询笔记本电脑的保修期"> <h2> 如何查询笔记本电脑的保修期 </h2> </a> </li> <li> <a href="/article/1128635.html" target="_blank" title="请教如何查询系统最近5天生成的txt文件并提供链接给访问者上载"> <h2> 请教如何查询系统最近5天生成的txt文件并提供链接给访问者上载 </h2> </a> </li> </ul> </div> </article> </div> </main> <footer><div class="box"><div class="ft_nav"><div class="ft_about">关于网站<ul><li><a href="/sitemap.xml" target="_blank" title="网站地图">网站地图</a></li><li><a href="/list/2/" title="最新程序员文章站">最新程序员文章站</a></li></ul></div><div class="ft_contact"><ul><li>本站所有数据收集于网络如有侵犯到您的权益，请联系我们进行下架处理。</li><li class="email_show"></li></ul></div></div><div class="copyright"><div class="cr_left"> 备案号：<a href="https://beian.miit.gov.cn/#/Integrated/index" target="_blank">粤ICP备20058927号</a>© Copyright © 2020-2022 www.superweb999.com 程序员文章站. </div></div></div></footer> </body> </html>