如何在程序中将已知的文件复制到另一个文件夹中？

copyfileto('c:/Autoexec.bat','d:/temp/Autoexec.bat')

解决方案 »

  1.   

    //edit1 edit2的text分别是源文件和目的文件的文件名及路径
    var
      FromFile,ToFile :File;
      NumRead,NumWritten :Integer;
      buf :Array[1..2048] of Char;
    begin
      AssignFile(FromFile,edit1.Text);
      Reset(FromFile,1);
      AssignFile(ToFile,edit2.Text);
      ReWrite(ToFile,1);  Edit5.Text := InttoStr(FileSize(FromFile))+'字节';
         Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromFile))
            + ' bytes...');
      Repeat
        BlockRead(FromFile,buf,SizeOf(buf),NumRead);
        BlockWrite(ToFile,buf,NumRead,NumWritten);
      until (NumRead=0) and (NumRead<>NumWritten);  CloseFile(FromFile);CloseFile(ToFile);
    上机调试过了，绝对可以
      

  2.   

    copyfile(Sourcefile,DestFile,False)
      

  3.   

    在定义部份先要定义使用  USES ShellApi
    然后在button的事件中写
    copyfileto('c:\Auto.bat','d:\Auto.bat')
      

  4.   

    最简单的是用winexec('copy file1 file2')呀