Q&A

  • 어디가 에러죠?
if not DirectoryExists(WorkDirectory) then Exit;
     if not DirectoryExists(BackupDirectory) then MkDir(BackupDirectory);

     if FindFirst(WorkDirectory+c_FileName+'*.*', faAnyFile, Searchrec)=0 then begin
          SrcFileName:=WorkDirectory + Searchrec.Name + #0;
          DestFileName:=BackUpDirectory + Searchrec.Name + #0;
          CopyFile(@SrcFileName[1], @DestFileName[1], False);
          while (FindNext(SearchRec) = 0) do begin
               SrcFileName := WorkDirectory + Searchrec.Name + #0;
               DestFileName := DestDirectory + Searchrec.Name + #0;
               CopyFile(@SrcFileName[1], @DestFileName[1], False);
          end;
          FindClose(SearchRec);
     end;


일단 소스는 위와 같습니다.
WorkDirectory에 있는 파일을 BackUpDirectory로 복사하려합니다.
그런데 컴파일을 하면 [Error] Main.pas(1408): Too many actual parameters하는 에러가 뜹니다.
도무지 이놈의 에러가 얼마나 힘이 센지 잡히지를 않습니다.
어디가 에러인지를 가르쳐주실 수 있나요?
부탁드립니다.

참고로
WorkDirectory := 'C:H_GupsikData';
BackupDirectory := 'C:H_GupsikBackUp';로 되어 있습니다

1  COMMENTS
  • Profile
    하얀까마귀 2002.01.21 13:37
    안녕하세요 하얀까마귀 입니다.

    님의 소스 봤는데 에러 없는것 같은데요??

    다른곳에서 에러가 나는거이던가..

    아니면 uses 절에 포함되어 있는, Unit중에서 같은 이름의 함수가 있을지도

    모르죠..

    그럼.

    - 하얀까마귀 -