各位大哥:
怎样去修改一个已有的文件的文件名
还有怎样去建一个新文件
就这么多了
谢谢!!

解决方案 »

  1.   

    rename(fileName)
    Createfile(fileName)
      

  2.   

    ///修改一个已有的文件的文件名
    procedure TForm1.Button1Click(Sender: TObject);
    var
      BackupName: string;
      FileHandle: Integer;
      StringLen: Integer;
      X: Integer;
      Y: Integer;
    begin
      if SaveDialog1.Execute then
      begin
        if FileExists(SaveDialog1.FileName) then
        begin
          BackupName := ExtractFileName(SaveDialog1.FileName);
          BackupName := ChangeFileExt(BackupName, '.BAK');
          if not RenameFile(SaveDialog1.FileName, BackupName) then        raise Exception.Create('Unable to create backup file.');
        end;
        FileHandle := FileCreate(SaveDialog1.FileName);
        { Write out the number of rows and columns in the grid. }
        FileWrite(FileHandle, 
          StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));
        FileWrite(FileHandle, 
          StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));
        for X := 0 to StringGrid1.ColCount ?1 do
        begin      for Y := 0 to StringGrid1.RowCount ?1 do
          begin
            { Write out the length of each string, followed by the string itself. }
            StringLen := Length(StringGrid1.Cells[X,Y]);
            FileWrite(FileHandle, StringLen, SizeOf(StringLen));
            FileWrite(FileHandle,
              StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);
          end;
        end;
        FileClose(FileHandle);
      end;end;
      

  3.   

    RenameFile(const OldName, NewName: string): Boolean;
    FileCreate(const FileName: string): Integer;
      

  4.   

    还想问一下:我可不可以去修改 .ini文件里的内容啊
      

  5.   

    Copies, moves, renames, or deletes a file system object. int SHFileOperation(
        LPSHFILEOPSTRUCT lpFileOp
    );