안녕하세요.. ^^

프로그램을 이용해서 pdf 파일을 서버 폴더로 보내고 실행하는 프로그램을 개발 중인데요...

파일 카피가 잘 되다가도 간혹은 파일명.pdf 라는 폴더만 생기는 경우도 있고..

파일명.pdf 폴더가 생기고 그 아래에 파일리 카피 되는 문제가 있더라구요...

어떻게 해야 할지 모르겠씁니다..

procedure Copy_File(FromFile, ToFile: String);
  var
      FData : TSHFileOpStruct;
      FFrom, FTo: String;
begin
  FFrom := Trim(FromFile);
  FTo := Trim(ToFile);

  FData.fFlags := FOF_ALLOWUNDO;
  FData.lpszProgressTitle := PChar( 'File Operation' );
  FData.pFrom := PChar( FFrom );
  FData.pTo := PChar( FTo );
  FData.Wnd := 0;
  FData.wFunc := FO_COPY;

  ShFileOperation( FData );
end;

//버튼 클릭시 실행됨

   if FileExists('C:\aaa.pdf') then begin
       Copy_File('C:\aaa.pdf' ,'\\ilmain\aaa.pdf ');
   end;

위와 같이 파일 카피를 명령을 내였는데...

어떻게 하면 될까요?

뭘 잘못한건지... 쩝..