안녕하세요~ 구창민입니다.



고수는 아니구요 ^_^;



윈도그즈처럼 파일찾기를 하는 함수를 한번 구현해 보았습니다.



그러니까, 와일드 카드를 사용할수 있는 함수입니다.



검색예) '*.doc', 'abc.???', 'a*.txt'..등등.. 윈도우즈에서 검색하는 형태로

검색하실 수 있습니다.



저는 리스트박스에 찾은 파일의 풀패쓰와 이름을 쓰게 만들어 두었구요.



검색도중 취소하고 싶으시면 먼저 searchcheck라는 전역변수를 하나 생성한다음



취소버튼을 하나 생성하시고, 취소버튼 이벤트 핸들러에 이 문장을 추가하세요.



searchcheck:= False;



^_^;



검색되고 있는 것을 표현하는 것은 박혜윤님의 몫이겠지요?



현재 검색중인 디렉토리를 상태바에 표현한다든지 하는 형태로요...^_^;



그럼 유용히 사용하시고, 항상 즐거운 프로그래밍 하시길~







unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

ListBox1: TListBox;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure FilesSearch( Directory, SearchName: String );

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.FilesSearch( Directory, SearchName: String );

var SR : TSearchRec;

R : integer;

begin

if Directory[Length(Directory)] <> '' then Directory := Directory + '';

R := Sysutils.FindFirst(Directory + SearchName, faAnyFile, sr);



while R = 0 do

begin

if (SR.Attr <> faDirectory) and (SR.Name[1] <> '.') then

if sr.FindData.cAlternateFileName <> '' then

ListBox1.Items.Add(Directory + sr.FindData.cAlternateFileName)

else

ListBox1.Items.Add(Directory + sr.FindData.cFileName);

//아래 라인은 search라는 외부 변수를 만들고 취소버튼을 누를경우 searchcheck:= False 한 경우이다

//if searchcheck = False then Exit;

Application.ProcessMessages;

R := Sysutils.FindNext(sr);

end;

SysUtils.FindClose(Sr);



if FindFirst(Directory + '*.*', faDirectory, SR) = 0 then

begin

repeat

if ((Sr.Attr and faDirectory) = faDirectory) and (SR.Name[1]<>'.') then

begin

//아래 라인은 search라는 외부 변수를 만들고 취소버튼을 누를경우 searchcheck:= False 한 경우이다

//if searchcheck = False then Exit;

FilesSearch(Directory+SR.Name+'', SearchName); // 재귀호출

end;

Application.ProcessMessages;

until (FindNext(SR) <> 0);

end;

SysUtils.FindClose(sr);

end;







//사용예) '*.doc', 'abc.???', 'a*.txt'..등등..

//윈도그즈에서 검색하는 형태로 하실 수 있습니다.

procedure TForm1.Button1Click(Sender: TObject);

var Dir: String;

begin

ListBox1.Clear;

Dir:= 'c:';

FilesSearch(Dir, Edit1.Text);

end;



end.

함수는 감사하게 자알 받았습니다.



그런데, 폴더를 숨김으로 하면, 그건 폴더만 나오구 검색이 안되네요?



숨김속성을 가진 폴더는 그냥 폴더만 나와서,



if ((Sr.Attr and faDirectory + fahidden) = faDirectory) 라고 해봤는데...

따식이 말을 안듣네요... 따식....



도와주시는 김에.. 한번만.. ^^;



하드에 폴더를 하나 숨김으로 만들어서, 그 안에 보통 속성으로 저장을 하면,

디렉토리가 있다고는 나오는데, 그 디렉토리에의 파일은 검색이 안되는 문제가...



한번만 더 ^^;



감사. 감사.

창민님... 정말 감사합니다. 정말루 정말루... 캄사 감사 가무사 합니다.

역씨 델파이가 최고군요... 고수님도 많이 계시고, 친절한분도 많이 계시구...



앞으로 종종 여쭈어 보겠습니다.



거듭감사드립니다.