如果是在本地机器或是共享的局域网,则可以:
  copyfileto(原文件路径+原文件名,保存路径新文件名)
  如将c:\a.txt copy 到 d:\ 并改名位b.txt则
  copyfileto('c:\a.txt','d:\b.txt')

解决方案 »

  1.   

    var
      StrPath:String;  
      sList:   TStrings;      
      TempDir: array[0..255] of Char;  //用于得到临时文件夹路径
    .....
        sList:=TStringList.Create;
      try
        //得到系统临时目录路径
        GetTempPath(255,@TempDir);
        //载入指定要转换的Txt文件
        sList.LoadFromFile(Trim(Edit1.Text));
        sList.SaveToFile(StrPas(TempDir)+FormatDateTime('mmdd hhmmss',Now()+Trim(Edit1.Text));
      finally
        //释放sList资源
        sList.Free;
      end;
      

  2.   

    copyfileto()
    为什么用不了?
      

  3.   

    dt:=time;
         H:=fileopen('文件名');
         nf:=timetostr(time)+'a.txt'
         renamefile('旧文件名',nf)
         操作不成功
    ------------------------------
    你应该先关闭你打开的文件再RenameFile
         dt:=time;
         H:=fileopen('文件名');     
         nf:=timetostr(time)+'a.txt'
         FileClose(H);  --->要关闭它。
         renamefile('旧文件名',nf)
    --------------
      

  4.   

    copyfileto()
    使用前要不要加点什么 ?可以
    renamefile('旧文件名','目录\新文件名')
      

  5.   

    H,nf:string;dt:=time;
         H:=fileopen('文件名');     
         nf:=timetostr(time)+'a.txt'copyfile(pchar(H),pchar(nf),false);拷贝成功。
      

  6.   

    好象有这两个API:
    copyfile
    movefile
      

  7.   

    if not fileexist then createfile  ...
     
     renamefile
     fileopen