Q&A

  • 파일명을 변경할려면요....
디렉토리 안에 파일은 모두 동일한 형태로

되어있습니다.

이걸 다른 이름의 파일명으로 변경할려면 어떻게...

예) A,B,C,D라는 파일이 있음

q_A,q_B,p_C,q_D 로 말입니다.

여러 고수님의 협조부탁합니다.

1  COMMENTS
  • Profile
    최용일 2000.04.29 10:30
    안녕하세요. 최용일입니다.



    아래와 같이 코딩해서 사용하세요.



    var

    SR: TSearchRec;

    F: File;

    begin

    DirPath := 'c:ttt'; // 파일이 있는 디렉토리

    if FindFirst(DirPath + '*.*', faAnyFile - faDirectory, SR) = 0 then

    repeat

    AssignFile(F, DirPath + SR.Name);

    Rename(F, DirPath + 'q_' + SR.Name); // 파일에 q_를 덛붙여서 이름을 바꾼다.

    until FindNext(SR) <> 0;

    end;



    ^^ 항상 즐코하세요.



    서영 wrote:

    > 디렉토리 안에 파일은 모두 동일한 형태로

    > 되어있습니다.

    > 이걸 다른 이름의 파일명으로 변경할려면 어떻게...

    > 예) A,B,C,D라는 파일이 있음

    > q_A,q_B,p_C,q_D 로 말입니다.

    > 여러 고수님의 협조부탁합니다.