김영애 wrote:

> 안녕하세요...

>

> 파일리스트박스를 사용하고 디렉토리리스트박스를 사용해서 해당 디랙토리의 파일들을 파일 리스트박스에 보여주면 그 보여진 파일들을 모두 다른이름으로 바꿔 임의의 디렉토리에 저장을 해야하는데 어떻게 해야할지요...

> 아시는분 좀 가르쳐 주세요!!! 기다리겠습니다..!!

>



제가 예전에 했던 것과 같은 개념인데요.



procedure TForm1.N1Click(Sender: TObject);

var

i: integer;

source,dest,ext: string;

f: file;

begin



if filelistbox1.selcount < 1 then begin

showmessage('먼저 변환할 파일을 선택해야 합니다.');

exit;

end;



filelistbox1.ItemIndex:=0;



for i:=0 to filelistbox1.selcount-1 do begin

source:=filelistbox1.Items[filelistbox1.ItemIndex-i];

ext := ExtractFileExt(filelistbox1.Items[filelistbox1.ItemIndex-i]);

AssignFile(f,source );

dest:= edit1.text + format('%.4d',[i]) + ext;

Rename(f, dest);

end;

filelistbox1.Update;



showmessage('변환완료');

end;