下面这样使用RenameFile是否有错?试过以后并没有改了文件名。
var
OldName,NewName: string;
begin
OldName := 'D:\sss\fff\Old.txt';
NewName := 'D:\sss\fff\New.txt';if RenameFile(OldName,NewName) then
ShowMessage('改名成功!');
end;
var
OldName,NewName: string;
begin
OldName := 'D:\sss\fff\Old.txt';
NewName := 'D:\sss\fff\New.txt';if RenameFile(OldName,NewName) then
ShowMessage('改名成功!');
end;
....try
AssignFile(f, YorOldName);
rename(f, YourNewName);
except
ShowMessage('failed')
end;
OldName,NewName: string;
begin
OldName := 'D:\sss\fff\Old.txt';
NewName := 'New.txt';if RenameFile(OldName,NewName) then
ShowMessage('改名成功!');
end;
OldName,NewName: string;
begin
OldName := 'D:\sss\fff\Old.txt';
NewName := 'New.txt';if RenameFile(OldName,NewName) then
ShowMessage('改名成功!');
end;
OldName,NewName: string;
begin
OldName := 'D:\sss\fff\Old.txt';
NewName := 'New.txt';if RenameFile(OldName,NewName) then
ShowMessage('改名成功!');
end;
你这样是对的啊?!我测试过了,没问题。自己再重新测试一下。函数原型
UnitSysUtilsCategoryfile management routinesDelphi syntax:function RenameFile(const OldName, NewName: string): Boolean;