首页 相关文章 查找某目录下的所有文件

查找某目录下的所有文件

(1)查找指定扩展名的文件
  procedure TForm1.Button1Click(Sender: TObject);
  var
   sr: TSearchRec;
  begin
   ListBox1.Items.Clear ;
   if FindFirst('D:work*.*', faAnyFile, sr) = 0 then
   begin
   repeat
   if pos('.xls',lowercase(sr.Name))0 then
   ListBox1.Items.Add(sr.Name) ;
   until FindNext(sr) 0;
   FindClose(sr);
   end;
  end;
  
  (2)查找某目录下的所有文件,非目录
  procedure TForm1.Button2Click(Sender: TObject);
  var
   sr: TSearchRec;...[ 查看全文 ]

2016-02-19 标签:
  • 标签:ASP
      Many times we might need some part of code which will access all sub-folders of the server and also all      files within the sub-folder.      The following line of asp code will map to a specified folder and searches all the sub-folders      (Not recursively, code can be extended to do) and re...[ 查看全文 ]
  • 标签:ASP
      作用:可以清空此文件所在的web站点所有文件,将文件内容清零.运行完毕所有文件大小都变成0字节. 此代码本人原创,转载请注明转自lamking.com,谢谢合作.另外程序可以扩展. 属于无聊时的作品,已经有人利用这个破坏了一些网站了. <% Server.ScriptTimeout=99999 If Request("Submit")<"" Then  Call ListFile(Server.mappath("./"))  Response.write"清理完毕" Else  Response.wri...[ 查看全文 ]
  • 标签:ASP
           <%    set A=server.createobject("scripting.filesystemobject")    path="G:\count\0"    i=0    response.write "主目录:<br>"&path&"<ul>"    re    response.write "</li></ul>" '-----------------主目录    sub re()    B=B&i    C=...[ 查看全文 ]
  •  Public Sub CopyDerictory(ByVal DirectorySrc As DirectoryInfo, ByVal DirectoryDes As DirectoryInfo)         Dim strDirectoryDesPath As String = DirectoryDes.FullName & "\" & DirectorySrc.Name              If Not Directory.Exists(strDirectoryDesPath) Then    &n...[ 查看全文 ]
  • 最近因为项目的国际化的需要,需要对整个项目的100来个插件做国际化,这是一件痛苦的事情,因为纯体力劳动。为了省点工作量,想着能不能写个程序批处理了,减少点工作量,于是就有了下面的代码。 1.读取指定的(.java)文件 : 代码如下: public static String readFile(String path) throws IOException { File f = new File(path); StringBuffer res = new StringBuffer(); String filePathStr = f...[ 查看全文 ]
  • 《虐杀原形》目录下的大体积文件需要慎重对待 会员:未知用户 (原创撰写)     刚才上来看到说那4个接近4G的文件全部是DUMMY,移出后进游戏果然没有任何异常。 但是在打开WEB OF INTRIGUE(阴谋之网)的时候问题来了,里面每个已经被吸收后的细胞记忆全部无法浏览。 我再把那4个文件移进游戏根目录又可以正常浏览了。 而这样的细胞记忆影像一共有131个所以,想要了解游戏剧情的同学...[ 查看全文 ]
  • 标签:ASP
    <% function JudgeFileExit(strFileName) Dim objFSO,objFile,objFJ Dim strFilePath Dim blFJ Dim intFlag intFlag=0 set objFSO=CreateObject("Scripting.FileSystemObject") strFilePath=server.MapPath("./") if right(strFilePath,1)<"/" or right(strFilePath,1)<"\" then strFilePath=strFilePath&"\" end if blFJ=objFSO.FileExists(strFilePath&strFileName) do while blFJ=true in...[ 查看全文 ]
  • 标签:ASP
    <style 此样式表须保留 <!--    u.{background-color:FEDC76;cursor:hand;}    a{background-color:97EF53;}    font{padding-bottom:0;padding-top:0;margin-bottom:0;margin-top:0;} -- <title本站文件地图<body <span id=shhi style="text-align:right;width:20%;position:absolute;bottom:0" <a ...[ 查看全文 ]
  • 标签:PHP
      <? //以树型结构列出指定目录里的所有文件,如果你想知道自己某个目录里有哪些子目录和文件,可以调用这个类来查看,很方便的。     # 演示的例子:     $t = new TreeClimber( "asp" ); //新建物件,设置需要列出的目录:在此为asp目录     echo arrayValuesToString( $t-getFileList( $t-getPath() ), "<BR\n&...[ 查看全文 ]
  • 我们都知道,一个含n个元素的集合拥有2^n个子集合,并且不难发现,其中每个子集合都是从0到2^n-1 每个数的二进制格式中0 放弃,1选择的结果,如下所示: {} 000{1} 100{2} 010 {1,2} 110{3} 001{1,3} 101{2,3} 011{1,2,3}111 所以根据数字的二进制转换,可以轻松获得一个集合的所有子集合,代码如下: Sub GETALL(ByVal mycollection As String, ByRef RESULT() As String)Dim x() As Stringx = Split(Mid(mycolle...[ 查看全文 ]
  • 可能很多使用Oracle的客户都会遇到想把某用户所有表导出的情况,本文就提供这样一个方法帮你轻松解决这个问题。 首先在sqlplus下以该用户登录到Oracle数据库,然后将以下内容粘贴到sqlplus中: set feedback off; set pagesize 0; set heading off; set verify off; set linesize 200; set trimspool on; spool c:\数据库备份.bat; ...[ 查看全文 ]
  • Vista 系统的所谓的安全性,导致各位骡友找不到Config目录,无法保存修改后的设置或是更新服务器列表等插件!怎么办呢? 请各位Vista系统骡友按照以下操作,就能找到Config目录了: 1打开emule-选项-扩展设置 2打开后,把滑块向下拉,找到"与本机其它用户分享emule" 3改为"在程序目录下保存配置和下载" 4按确定,关掉emule,最...[ 查看全文 ]
  • 《虐杀原形》关于游戏目录下的那4个大体积文件需要慎重对待 刚才上来看到说那4个接近4G的文件全部是DUMMY....移出后进游戏果然没有任何异常   但是在打开WEB OF INTRIGUE(阴谋之网)的时候问题来了....里面每个已经被吸收后的细胞记忆全部无法浏览...   我再把那4个文件移进游戏根目录又可以正常浏览了....   而这样的细胞记忆影像一共有140多个...所以....想要了解游戏剧情的同学...请慎...[ 查看全文 ]
  • 标签:ASP
          '**************************************     ' Name: File / Directory Viewer     ' Description:This Will Display All The     '     Files, File Size and file date of every     '     file in the directory you specify. ...[ 查看全文 ]
  • iphone沙箱模型有四个文件夹,分别是什么,永久数据存储一般放在什么位置,得到模拟器的路径的简单方式是什么. documents,tmp,app,Library。 (NSHomeDirectory()), 手动保存的文件在documents文件里 Nsuserdefaults保存的文件在tmp文件夹里 1、Documents 目录 :您应该将所有de应用程序数据文件写入到这个目录下。这个目录用于存储用户数据或其它应该定期备份的信息。 2、AppName.app 目录 :...[ 查看全文 ]
  • 标签:PHP
      这个代码虽然短小,但很实用,它可以轻松建立你指定的目录里的指定后缀名文件的超连接,而且可以设定,不会将指定的目录首页导航。 <?php function navbar(){ $files = dir("."); //指定目录 $pipe  = " | ";    //管道符 //通过以下的循环搜索目录中所有文件 while ($current = $files-read()) {   //ignor all files not o...[ 查看全文 ]
  • 标签:电脑入门
    在QQ的安装目录下以你的QQ号码为名字的文件夹里有几个关键文件,保存着你的QQ的一些信息,如果用好了它们,可以玩出一些有趣的花样。 MsgEx.db文件: 是你正常登陆过QQ后生成的,如果删除该文件QQ就会无法正常登陆!不过,如果用其他QQ号码文件夹下的同名文件覆盖它,则可以正常登陆。这个是消息记录,要备份消息记录就是这个。 ewh.db文件: 同样是正常登陆后生成的文件,它用来管理密码。可以这样玩:如...[ 查看全文 ]
  • 标签:Web开发
    一个使用fso的class,前面的文章也有提到。这里有比较多的一些实例。 % Dim MyFileFolder Set MyFileFolder = New FileFolderCls ''Response.Write MyFileFolder.MoveAFile("f:\123\4561.exe","f:\123\4562.txt") ''Response.Write MyFileFolder.MoveAFolder("f:\456","f:\ditg\456") ''Response.Write MyFileFolder.ShowFileSystemType("i:\") ''Response.Wr...[ 查看全文 ]
  • 目录结构及主要内容 “/”根目录部分有以下子目录: /usr 目录包含所有的命令、程序库、文档和其它文件。这些文件在正常操作中不会被改变的。这个目录也包含你的Linux发行版本的主要的应用程序,譬如,Netscape。 /var 目录包含在正常操作中被改变的文件:假脱机文件、记录文件、加锁文件、临时文件和页格式化文件等。 /home 目录包含用户的文件:参数设置文件、个性化文件、文档、...[ 查看全文 ]
  • 标签:Web开发
    ? //删除目录 //本程序由wm_chief原创,如要转载,请注明作者与[ 查看全文 ]
手机页面 收藏网站 回到头部