Delphi chobo wrote:

> 안녕하세요~

> 델파이를 시작한지 얼마 안되는데요.

> 제가 디렉토리를 생성하고 삭제하는 기능을 추가하고 있는데요.

> Tip을 찾아보니 생성하는 기능을 수행이 되는데.

> 삭제하는 기능을 하면 'I/O 32' 에러라고 메세지 라고 뜨는데요.

>

> 제 OS는 win2000이고 옆에 컴터는 98을 쓰고 있습니다.

> 그래서 옆 컴터로 실행하면 되더군요..

> 이거 무슨 문제인지 궁금합니다.

>

> 빠른 답변 부탁드리겠습니다.



Win API함수중에는 WINNT계열에서는 실행이 되지 않는 함수가 있습니다.

이런 함수를 사용하신것이 아닌지 ...

제가 사용한 방법입니다. 일단 디렉토리내의 파일을 모두 지운후 디렉토리를 삭제

하는 방법입니다.

if DirectoryExists (Path+'aaa') then begin

i := FindFirst(Path +'aaa*.*', FaAnyfile, DirInfo);

While i = 0 do

begin

if ((DirInfo.Attr and FaDirectory <> FaDirectory) and

(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then

DeleteFile(pChar(Setup_Path+'aaa' + DirInfo.Name));

i := FindNext(DirInfo);

end;

SysUtils.FindClose(DirInfo);

RmDir(Setup_Path+'English Discoveries Network');

end;