کپی کردن فایل

[Dracula]

با سلام خدمت همه دوستان عزیز

من میخواستم بدونم چطوری میشه با دلفی یک فایل رو کپی کرد ؟

مثلا از شاخه c:\database به شاخه a:\database

از بذل توجه شما متشکرم .

[(امید)]

Procedure Copyfile(InFile,OutFile:string);

Var

  Inf,Outf : TFileStream;

  Over     : Boolean;

  res      : word;

  InFFale,OutFFale :boolean;

begin

  If FileEXists(InFile) then begin

    if FileExists(OutFile) then begin

      Res := MessageDlg('Do you want to overwrite existing file?', mtWarning, [mbYes, mbNo], 0);

      Over := (Res = mrYes);

    end else Over := true;

    inffale:=false;outffale:=false;

    If over then begin

      Try

      try

      InF := TFileStream.Create(Infile,Fmopenread or fmShareDenyNone);

      except

        on e: Exception do inffale:=true;

      end;

      try

      OutF := TFileStream.create(Outfile,FmCreate or FmShareExclusive);

      except

        On E: Exception do outfFale :=true

      end;

      outf.copyfrom(Inf,0);

      Finally

        if not inffale then FreeAndNil(Inf);

        if not outfFale then FreeAndNil(outF);

      end;

    end;

  end;

end;



  

کد از delphiassistant

[Dracula]

با سلام و تشکر از امید عزیز

من از سایت Torry.net یه کامپوننت دانلود کردم که برای کپی کردن فایلها بوسیله فرامین API ویندوزه و عملیات کپی کردن فایل رو با Progress Bar نمایش میده .

ولی موقع نصب این کامپوننت Error زیر گرفته میشه :

Build

  [Warning] CopyFile.pas(55): Unit 'FileCtrl' is specific to a platform

  [Error] CopyFile.pas(174): Undeclared identifier: 'SFCreateError'

  [Error] CopyFile.pas(174): Incompatible types: 'String' and 'PResStringRec'

  [Error] CopyFile.pas(177): Incompatible types: 'String' and 'PResStringRec'

  [Fatal Error] dclusr.dpk(41): Could not compile used unit '..\..\..\..\CopyFile\CopyFile.pas'

لطفا راهنمایی کنید که مشکل چیه !
متشکرم .
در ضمن کامپوننت فوق الذکر رو میتونید از آدرس http://space.tin.it/computer/gburzoma/fcopynew.html دانلود کنید .

[بیگدلی]

من نمی دانم منظور شما دقیقا چیست ولی از این کد هم برای کپی می توان استفاده کرد

CopyFile('',

           ''), b);