안녕하세요. 최용일입니다.

FindFirst, FindNext, FindClose세가지만 사용하시면 검색가능합니다.

서브디렉토리까지 검색하실려면 재귀호출하시면 되구요. 검색해보시면 예제가 있을겁니다. 델파이 헬프에도 예제가 있구요...

^^ 항상 즐코하세요...

이렇게 바쁜 일과 중에도
답장을 주시에 대한히 감사 합니다.

님의 말씀대로

델이이 헬프에서 예제를 카피하여 테스트 하였으나,
저의 실력 부족으로 결과가 없읍니다.

죄송한 말씀이만 님께서 좀 예제를
자료실등에 올려 주시면 대단히 감사합니다

안녕하세요. 최용일입니다.

아래와 같은 식으로 하세요...

그리고 빠른 검색을 위해서 질/답의 머릿말은 공지사항대로 해주시면 감사하겠습니다...

procedure TForm1.FindFile(const PathName, FileName: string);
var
    SR: TSearchRec;
begin
    // 파일 검색
    if FindFirst(PathName + FileName, faAnyFile - faDirectory, SR) = 0 then
    begin
      repeat
          begin
              Memo1.Lines.Add(PathName + SR.Name);
          end;
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;

    // 서브디렉토리 검색
    if FindFirst(PathName + '*.*', faAnyFile, SR) = 0 then
    begin
      repeat
          if (SR.Attr and faDirectory) = faDirectory then
          begin
              if SR.Name[1] <> '.' then
                  FindFile(PathName + SR.Name + '', FileName);
          end
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    FindFile('D:', '*.pas');
end;

^^ 항상 즐코하세요...

고맙습니다.

이렇게 바쁜 일과에도 답변을 주시어 대단히 감사 합니다.

많은 도움이 되었읍니다