| Description |
The current file is moved to the directory specified in TargetLocation. If the TargetLocation contains a file name as well, the file is also renamed to the new name.
If there is no directory specified, the file is moved to the current directory with the specified new name.
The directory may be an absolute or relative value.
|
|
| Microsoft MSDN Links |
System.IO
System.IO.FileInfo
|
|
|
| Using MoveTo to rename the current file |
// Full Unit code.
// -------------------------------------------------------------
// Create a new WinForm application, double click the form to
// create an OnLoad event, and then replace the WinForm unit
// with this text.
unit WinForm;
interface
uses
System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data;
type
TWinForm = class(System.Windows.Forms.Form)
\{REGION 'Designer Managed Code'\} // Note that REGION and ENREGION should be prefixed by a dollar sign
strict private
///
/// Required designer variable.
///
Components: System.ComponentModel.Container;
///
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
///
procedure InitializeComponent;
procedure TWinForm_Load(sender: System.Object; e: System.EventArgs);
{ENDREGION}
strict protected
///
/// Clean up any resources being used.
///
procedure Dispose(Disposing: Boolean); override;
private
{ Private Declarations }
public
constructor Create;
end;
[assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
implementation
\{REGION 'Windows Form Designer generated code'\}
///
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
///
procedure TWinForm.InitializeComponent;
begin
//
// TWinForm
//
Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
Self.ClientSize := System.Drawing.Size.Create(292, 266);
Self.Name := 'TWinForm';
Self.Text := 'WinForm';
Include(Self.Load, Self.TWinForm_Load);
end;
{ENDREGION}
procedure TWinForm.Dispose(Disposing: Boolean);
begin
if Disposing then
begin
if Components <> nil then
Components.Dispose();
end;
inherited Dispose(Disposing);
end;
constructor TWinForm.Create;
begin
inherited Create;
//
// Required for Windows Form Designer support
//
InitializeComponent;
//
// TODO: Add any constructor code after InitializeComponent call
//
end;
procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs);
program Project1;
{$APPTYPE CONSOLE}
uses
System.IO;
var
FileInfo : System.IO.FileInfo;
Files : Array of String;
Stream : FileStream;
i : Integer;
begin
// Create a FileInfo object for a text file
FileInfo := System.IO.FileInfo.Create('DelphiBasics.txt');
// Create the DelphiBasics.txt file
Stream := FileInfo.&Create;
// Close the file
Stream.Close;
// List files in the current folder
Files := System.IO.Directory.GetFiles(Directory.GetCurrentDirectory);
for i := 0 to Length(Files)-1 do
Console.WriteLine(System.IO.Path.GetFileName(Files[i]));
// Rename the file using the MoveTo method
Console.WriteLine;
Console.WriteLine('Renaming DelphiBasics.txt using MoveTo :');
Console.WriteLine;
FileInfo.MoveTo('RenamedDelphiBasics.txt');
// List files in the current folder
Files := System.IO.Directory.GetFiles(Directory.GetCurrentDirectory);
for i := 0 to Length(Files)-1 do
Console.WriteLine(System.IO.Path.GetFileName(Files[i]));
// Clean up - delete the new file
System.IO.File.Delete('RenamedDelphiBasics.txt');
Console.Readline;
end.
end. | | Hide full unit code | DelphiBasics.txt
Project1.exe
Project1.pdb
Project1.rsp
Renaming DelphiBasics.txt using MoveTo :
Project1.exe
Project1.pdb
Project1.rsp
RenamedDelphiBasics.txt
|
| |
|
|
|