민 wrote:

> 드라이브에 관계없이 확장자가 'DOC'이거나 'HLP'인 파일을 찾아서

>

> 그 확장자를 'TXT'로 바꾸려면 어떻게 해야 되나요????

>

>

>

> 좋은 하루 되세요....





안녕하세요... 김동원입니다.

길게 설명하는것 보다 예제를 만들어 보여드리는게 나을것 같아서...



var

SearchRec: TSearchRec;

procedure TForm1.SearchClick(Sender: TObject);

begin



if(FindFirst('찾으려는파일경로*.확장자', faAnyFile, SearchRec) = 0 )then

begin // 수정가능한 파일만 검색했습니다.

Repeat

if not RenameFile(SearchRec.Name,'새로운파일명') then

ErrorMsg('Error renaming file!');

//기존 확장자를 지우고 새로운 파일명은 확장자만

//다시 붙여주면 될것 같네요.

Until (FindNext(SearchRec) = 0);

FindClose(SearchRec);

end;

end;



너무 간단한가요..

추가로 에러처리라든가 새파일명.. 그런부분은 직접코딩하시면 됩니다....

참고로 확장명추출함수는 ExtractFileExt입니다.

확장자 자리를 삭제하고 다시 붙여주셔도되고요..

세세한 것까지 코딩해 드리면 사람 무시한다고 하실까봐 요기까지만....^^



제가 만든예제와 델파이의 도움말을 참조하시면 될겁니다.

그럼이만.