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';로 되어 있습니다
님의 소스 봤는데 에러 없는것 같은데요??
다른곳에서 에러가 나는거이던가..
아니면 uses 절에 포함되어 있는, Unit중에서 같은 이름의 함수가 있을지도
모르죠..
그럼.
- 하얀까마귀 -