TreeView绑定文件夹下的目录

private void BindChild(TreeNode fNode)
        {
            string path = fNode.Tag.ToString();




            //父目录
            DirectoryInfo fDir = new DirectoryInfo(path);
            FileSystemInfo[] finfos = fDir.GetFileSystemInfos();


            foreach (FileSystemInfo f in finfos)
            {
                string type = f.GetType().ToString();
                TreeNode node = new TreeNode();


                string[] strName = f.Name.Split('.');//去掉后缀名
                node.Text = strName[0];
                 //= f.Name;
                node.Tag = f.FullName;


                fNode.Nodes.Add(node);
                if ("System.IO.DirectoryInfo" == type) //是文件夹时才递归调用自己
                {
                    BindChild(node);
                }
            }

        }



//然后绑定

            if (treeView1.Nodes.Count == 0)//判断是已经绑定数据
            {
                TreeNode root = new TreeNode();
                root.Text = @"炒股新手学习";
                root.Tag = @"D:\项目工作文件夹\StudyForm\炒股新手学习";
                treeView1.Nodes.Add(root);
                BindChild(root);
            }


http://www.cnblogs.com/sndnnlfhvk/archive/2011/03/31/2001065.html

//显示任意一个目录的文件到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、付费专栏及课程。

余额充值