제가 틀렸다고 질문한 코딩이 알고 보니 맞는 코딩이네요...하하하하하하하하

이런.........

잘되는군요..........감사합니다.쇼를 하는군...난 바보인가봐..

토토 wrote:

> var

> done:integer;

> sr:TSearchRec;

> done1:integer;

> sr1:TSearchRec;

> nam:string;

> begin

> done:=findfirst('c:conversion*.*',faanyfile,sr);

> while done=0 do

> begin

> if (sr.attr and fadirectory)=fadirectory then

> begin

> done1:=findfirst('c:conversion'+sr.name+'*.txt',faanyfile,sr1);

> while done1=0 do

> begin

> listbox1.items.add(sr1.name);

> done1:=FindNext(sr1);

> end;

> end;

> done:=FindNext(sr);

>

> end;

> end;

> 요코딩에서요.....지금conversion이라는 디렉토리안에 있는 여러개의 또다른디렉토리에 있는 여러개의 화일들을 차례로 읽기를 하려고 코딩을 했는데....

> 요기서요 문제가 뭐죠......

> 맞는 코딩인가요?

> 13번째줄이 잘못된것같은데요......sr.name안에 conversion이라는 디렉토리안에 있는 작은 수많은 디렉토리의 이름이 들어가야 하는데.......제가 문법을 잘몰라서...

> 여기까지는 대충맞는것같은데...정리좀 부탁합니다.

>

>

>

>





아래 내용은 예전에 다른분께 답변드렸던 내용인데 보시고 참고하세요.



황영철 wrote:

> 특정 디렉토리의 화일을 모두 가져올수 있는 방법이 없나요

> 정말 급한데요 구원요청입니다.





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



아래 예제는 예전에 제가 만들어 사용하던 함수입니다.

특정 디렉토리명을 인자로 전해주면 재귀호출을 하며 그 디렉토리의

하부 디렉토리와 파일을 모두 목록으로 구성해 주는 함수입니다.

저는 ListBox에서 구성되도록 해 두었으며,

목록으로 구성될때 파일은 앞에 'F'가 붙고,

디렉토리는 'D'가 붙도록 만들어 두었습니다.



영철님이 원하시는 대로 조금 수정하셔서 사용하세요.



그럼.. 즐거운 프로그래밍 하시길~



procedure TMainForm.SearchDirectory(dir : string);

var Searchrec : TSearchrec;

i : integer;

st : string ; //경로조립할 문자열

begin

st := dir + '*.*';

FindFirst(st, faAnyFile, SearchRec);

i := 0;



while i = 0 do

begin

if (Searchrec.Name = '.') or (Searchrec.Name = '..') then

begin

i := FindNext(SearchRec); //다음 디렉토리, 화일을 찾음

Continue;

end;



if DirectoryExists(dir + '' + SearchRec.Name) then //찾은게 디렉토리면..

begin

st := dir + '' + Searchrec.Name;

ListBox1.Items.Add('D*'+st );

SearchDirectory(st);

i := FindNext(Searchrec);

Continue;

end;



//찾은게 파일일 경우..

st := dir + '' + SearchRec.Name;

ListBox1.Items.Add('F*'+st);

i := FindNext(SearchRec);

end;



end;