Question

Delphi 按钮实现更改指定文件夹下的文件名?

delphi 点一个按钮 实现 如果存在c:/abc/a 这个文件 将其更改为c:/abc/a.txt
如果不存在 则将c:/abc/a.txt 更改为c:/abc/a.pdf 如果修改成功提示 成功 修改失败提示 失败
怎么实现啊? 谢谢了

Answer 1

function ReNameFiles(): Boolean;
var
fn, txtfn, pdffn: string;
begin
{delphi 点一个按钮 实现 如果存在c:/abc/a 这个文件 将其更改为c:/abc/a.txt
如果不存在 则将c:/abc/a.txt 更改为c:/abc/a.pdf 如果修改成功提示 成功 修改失败提示 失败
怎么实现啊? 谢谢了}
Result := False;
fn := 'c:\abc\a';
txtfn := 'c:\abc\a.txt';
pdffn := 'c:\abc\a.pdf';
if FileExists(fn) then
begin
Result := RenameFile(fn, txtfn);
end
else begin
if FileExists(txtfn) then
begin
Result := RenameFile(txtfn, pdffn);
end;
end;
if Result then
ShowMessage('OK');
end;