delphi Renamefile函数改名问题

来源：百度知道 编辑：UC知道 时间：2024/06/27 08:34:16
delphi用renamefile函数修改文件名.
如何保存扩展名..
如:
1.rar
2aaaa.exe
3ddd.zip
分别修改为:
11
12
13
扩展名不变

var
SourceFileName: string;
begin
SourceFileName:= '2aaaa.exe';
RenameFile('C:\' + SourceFileName, 'C:\1' + LeftStr(SourceFileName,1)+ ExtractFileExt(SourceFileName));
end;
其它的文件只需要替换SourcefileName的值就可以了。
使用的时候请保证文件名和路径的准确，本方法在WIN XP SP2 + D7下测试通过。