TDirectory.Move移动或更名目录

使用函数：

　　System.IOUtils.TDirectory.Move

定义：

class procedure Move(const SourceDirName, DestDirName: string); static;

说明：移动或更名目录

参数一：源目录。

参数二：目标目录。

异常处理：目录无效、不存在或无法访问。

示例：

var
    sDir, dDir: string;
begin
    sDir := Edit_Source.Text;
    dDir := Edit_Dest.Text;
    try
        if TDirectory.GetParent(sDir) = TDirectory.GetParent(dDir) then
            if MessageBox(0, PChar('是否确定将<' + sDir + '> 更改为 <' + dDir + '>?')  , '温馨提示', MB_YESNO) = IDYES then
            begin
                TDirectory.Move(Edit_Source.Text, Edit_Dest.Text);
                ShowMessage('更名完成！');
                Exit;
            end;
        TDirectory.Move(Edit_Source.Text, Edit_Dest.Text);
        //目标文件夹必须不存在
        ShowMessage('移动目录完成！');

    except
        on e: Exception do
        begin
            MessageDlg(e.ClassName + ':' + e.Message, mtError, [mbok], 0);
            Exit;
        end;

    end;
end;

更名：

移动：

转载于:https://www.cnblogs.com/cause/p/3503288.html