java使用递归算法实现加载本地磁盘的文件目录和文件

方法代码

 /**   * 实用递归实现   * @param file 表示文件的路径(D://XXX//XXX//XXX//...)   */  public static void getFile(File file){   //判断是否为文件   boolean isFile = file.isFile();   //判断是否为隐藏文件   boolean isHidden = file.isHidden();   if(isFile){    //隐藏不显示    if(isHidden){    }else{     System.out.println(file.getName());    }   }else{    System.out.println("文件夹名是:"+file.getName());    //获取文件数组    File[] fileList = file.listFiles();    for (int i = 0; i < fileList.length; i++) {     getFile(fileList[i]);    }   }  }

执行代码

/**   * @param args   */  public static void main(String[] args) {   // TODO Auto-generated method stub   System.out.println("============================");   File file = new File("D:\\NewDaglImages\\");   FileTest.getFile(file);   System.out.println("============================");  }

自己写一个测试类,把代码放进去 试试,一看效果知道了 ,当然可能不太如您意,如有需要自己再动手试试 ,有很多参数的 ,都可以试试,希望对您有所帮助。


                
//显示任意一个目录的文件到TReeview中 unit uTreeViewDemo; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, StdCtrls, FileCtrl; const  SELDIRHELP = 1000; type  TForm1 = class(TForm)   TreeView1: TTreeView;   Button1: TButton;   procedure Button1Click(Sender: TObject);  private   { Private declarations }  public   procedure GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode;              IncludeFiles: Boolean);   { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode;                 IncludeFiles: Boolean); var  SearchRec: TSearchRec;  ItemTemp: TTreeNode; begin  TreeView1.Items.BeginUpdate;  if Directory[Length(Directory)] '\' then   Directory := Directory + '\';  if FindFirst(Directory + '*.*' , faDirectory, SearchRec) = 0 then  begin   repeat    if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] '.') then    begin     if (SearchRec.Attr and faDirectory > 0) then     Item := Tree.Items.AddChild(Item, SearchRec.Name);     ItemTemp := Item.Parent;     GetDirectories(Tree, Directory + SearchRec.Name, Item, IncludeFiles);     Item := ItemTemp;    end    else    if IncludeFiles then    if SearchRec.Name[1] '.' then     Tree.Items.AddChild(Item, SearchRec.Name);   until FindNext(SearchRec) 0;   FindClose(SearchRec);   TreeView1.Items.EndUpdate;  end; end; procedure TForm1.Button1Click(Sender: TObject); var  strOpenDir: string; begin  if SelectDirectory(strOpenDir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then  try   GetDirectories(TreeView1, strOpenDir, nil, True);  except   ShowMessage('错误信息');  end; end; end.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值