Tüm Dosya ve Klasörlerin Listesini Almak
| ||||
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses StdConvs;
{$R *.dfm}
procedure klasorlistesi(ad:string;var cc:tstringlist;altklasorler_olsunmu:boolean);
var bulunan:TsearchRec;tempname:string;
begin
if findfirst(ad,faAnyFile,Bulunan)=0 then
begin
if findfirst(extractfilepath(ad)+’*.*’,faDirectory,Bulunan)=0 then
repeat
if ((bulunan.name<>’.') and (bulunan.name<>’..’)) then
begin
tempname:=extractfilepath(ad)+bulunan.name;
cc.add(tempname);
if altklasorler_olsunmu then klasorlistesi(extractfilepath(ad)+bulunan.name+’\'+extractfilename(ad),cc,altklasorler_olsunmu);
end;
until findnext(bulunan)<>0;
findclose(bulunan);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var klasor_listesi:tstringlist;
begin
klasor_listesi:=tstringlist.Create;
klasor_listesi.Clear;klasorlistesi(‘c:\inetpub\wwwroot\umutsoft\*.*’,klasor_listesi,true);
memo1.Lines.assign(klasor_listesi);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
DirInfo: TSearchRec;
r : Integer;
begin
// findfirst(extractfilepath(ad)+’*.*’,faDirectory,Bulunan)=0 then
r := FindFirst(extractfilepath(‘C:\inetpub\wwwroot\’)+’*.*’, FaAnyfile, DirInfo);
while r = 0 do begin
//if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
memo1.Lines.Add(DirInfo.Name);
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
end;
end.
administrator2009-07-22 19:22:13
Benzer Yazılar:
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Loading ...