안녕하세요~

아무리 검색을 해도...

특정 파일이 존재하는지 검사하는 방법은 있는데,
특정 확장자가 존재하는지 검사하는 방법은 찾을 수가 없어서 이렇게 질문을 드립니다...ㅠ.ㅠ

다음의 코드 : SelectDirectory 를 사용하여 디렉토리를 선택하는 방법을 사용했는데...

Dir := 'C:\';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], SELDIRHELP) then
  EditLocate.text := Dir;

여기에서... 선택한 디렉토리에 .DAT 확장자를 가진 파일이 존재하지않으면 메시지를 출력하려 합니다.

이러한 함수가 따로 존재하는지요? 아니면 어떻게 하면 구현할 수 있을까요...

고수님들의 도움 부탁드립니다. ^^