파일 복사하시려는 건가요??

@0@ 아 ~ 잠온다....


procedure TForm1.Button1Click(Sender: TObject);
var
  ls_SourcePath, ls_TargetPath, ls_FileName : String;
begin
  ls_SourcePath := 복사될 파일의 경로
  ls_TargetPath  := 복사할 경로
  ls_FileName    := 파일명 ^^

  // 원하는 경로 ls_TargetPath 가 없을 경우
  // 디렉토리 만듬다 ^^
  IF Not DirectoryExists(ls_TargetPath) then
    ForceDirectories(ls_TargetPath);

  // ls_TargetPath에 지정한 경로 마지막에 요넘이 있는지 없는지
  // 알아보고 ㅡ.ㅡ 넣어줌다
  IF Copy(ls_TargetPath, Length(ls_TargetPath), 1) <> '' Then
    ls_TargetPath := ls_TargetPath + '';

  IF Copy(ls_SourcePath, Length(ls_SourcePath), 1) <> '' Then
    ls_SourcePath := ls_SourcePath + '';

  // copyfile(PChar(소스파일),Pchar(목적파일),boolean) : boolean
  // boolean이 False면 파일 존재시 엎어씌움.
  IF Not CopyFile(PChar(ls_SourcePath + ls_FileName),
                         PChar(ls_TargetPath  + ls_FileName), False) Then
  begin
    showmessage(SourcePath + filename + #13
                        + '엎어치기 실패!! ㅠ.ㅠ');
    exit;
  end;
  ShowMessage('엎어치기 한판 끝났습니다.!');
end;

^^ 님도 뭔가 만들고 계시나 봐요~
늦은 밤인데..
ㅋㅋㅋ 전 만들께 있는데 농땡이중인지라..^^;;
다 만들어야 자는데도 먼생각인지..ㅡ.ㅡ;;

님도 좋은 주말 보내셔요...ㅡㅡ^ 열쉬미 코딩하시고요 빠팅 ~ !