下载 > 资源分类 >  开发技术 >  Java > 显示任意一个目录的文件到Treeview中

显示任意一个目录的文件到Treeview中

2004-11-09 上传大小:200KB

//显示任意一个目录的文件到TReeview中
 unit uTreeViewDemo;
 
 interface
 
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, FileCtrl;
 
 cons
t
  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.
...展开收缩
综合评分:4.2(5位用户评分)
开通VIP C币充值 立即下载

评论共有1条

guoqi0102032014-07-10 13:34:15
还可以,我用上了,值得借鉴。

登录后才能评论

 

相关推荐

# 系统应用之TreeView控件显示树状磁盘文件目录及加载图标 立即下载
积分/C币:5
C#中使用treeview显示目录和文件的demo 立即下载
积分/C币:3
一个将目录转为html文件显示的程序 立即下载
积分/C币:3
一个调用目录对话框,显示对话框中指定格式文件的例子(51KB) 立即下载
积分/C币:3
Qt删除一个目录下所有文件和文件夹 立即下载
积分/C币:5
一个监视文件目录被修改情况的代码 立即下载
积分/C币:3
获得/读取一个目录下所有文件(包括子目录下) 立即下载
积分/C币:3
Wpf TreeView控件路径下显示文件和文件夹 立即下载
积分/C币:5
tabview动态实现视图标签页面+窗口分割+treeview显示内容+动态添加控件+在视图里面画图,带皮肤文件 立即下载
积分/C币:3
TreeView显示XML文件 立即下载
积分/C币:3
一个可以显示网络邻居以及所有可共享目录的信息的程序。(14KB) 立即下载
积分/C币:3
给定一个路径将其下面(含子文件夹)的所有png的文件复制到另外一个目录 立即下载
积分/C币:3
ASP.NET中用TreeView控件实现树目录的方法研究 立即下载
积分/C币:3
TreeView目录树与文件夹操作示例(VB源码) 立即下载
积分/C币:3
ASP.NET 中用TreeView实现树目录的实例 立即下载
积分/C币:3
[C#]TreeView控件使用之磁盘目录查看器 立即下载
积分/C币:3
java实现一个目录下全部文件复制到另一目录 立即下载
积分/C币:3
编程实现画一个任意多边形,分别计算其平移、旋转和缩放后的结果,并在同一窗口中用不同颜色显示。 立即下载
积分/C币:5
java 显示当前目录下的文件信息 立即下载
积分/C币:3
c++实现显示特定目录下文件 立即下载
积分/C币:3

热门专辑

VIP会员动态

关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
扫码关注并点击右下角获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

显示任意一个目录的文件到Treeview中

会员到期时间: 剩余下载个数: 剩余C币:593 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
(仅够下载10个资源)
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
C币充值 开通VIP
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可奖励5下载分

  • 举报人:
  • 被举报人:
  • 举报的资源分:
  • *类型:
  • *详细原因: