procedure GetDirectories(list: TlistView; Directory: string; Item: Tlistitem; IncludeFiles: boolean); var SearchRec: TSearchRec; begin list.Items.BeginUpdate;//准备更新 list.Items.Clear; //清空list内容 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 begin Item := list.Items.Add; //增加item item.Caption:=SearchRec.Name; item.ImageIndex:=6; end; GetDirectories(list,Directory + SearchRec.Name,Item,IncludeFiles); end else if IncludeFiles then if SearchRec.Name[1] <> ''''.'''' then begin item:=list.Items.Add; item.Caption:=SearchRec.Name; item.ImageIndex:=6; end; until FindNext(SearchRec) <> 0; //FindClose(SearchRec); end; list.Items.EndUpdate; end;
定义Directory:
procedure makedir(modulname,pathname,dirname,filepath:string);//创建目录(共4级,朋友如果觉得用得上的话,可以自己加参数) begin try if not directoryexists(frootpath+modulname) then createdir(FRootPath+modulname); if not DirectoryExists(FRootPath+modulname+''''\''''+pathname) then createdir(FRootPath+modulname+''''\''''+pathname); if not directoryexists(FRootPath+modulname+''''\''''+pathname+''''\''''+dirname) then createdir(FRootPath+modulname+''''\''''+pathname+''''\''''+dirname); if filepath<>'''''''' then if not directoryexists(FRootPath+modulname+''''\''''+pathname+''''\''''+dirname+''''\''''+filepath) then createdir(FRootPath+modulname+''''\''''+pathname+''''\''''+dirname+''''\''''+filepath) except On E:Exception do begin abort; end; end; banjin.N21.Enabled:=true; liucheng.MenuItem1.Enabled:=true; yanzheng.N21.Enabled:=true; banjin.SpeedButton1.Enabled:=true; liucheng.SpeedButton1.Enabled:=true; yanzheng.SpeedButton1.Enabled:=true; banjin.toolbutton1.Enabled:=true; liucheng.toolbutton1.Enabled:=true; yanzheng.toolbutton1.Enabled:=true; if filepath='''''''' then filespath:=FRootPath+modulname+''''\''''+pathname+''''\''''+dirname+''''\''''+filepath else filespath:=FRootPath+modulname+''''\''''+pathname+''''\''''+dirname+''''\''''+filepath+''''\''''; banjin.StatusBar1.Panels[0].Text:=''''你目前所在的位置:''''+filespath; liucheng.StatusBar1.Panels[0].Text:=''''你目前所在的位置:''''+filespath; yanzheng.StatusBar1.Panels[0].Text:=''''你目前所在的位置:''''+filespath; end; 如果是二级或一级目录的话,只要加上if filepath<>'''''''' then 类似的判断就可以了,例如:makedir(''''设计规范'''',''''电子件'''',''''电路设计规范'''','''''''');