如何把某个目录下的所有文件的文件名替换为，11＋原文件名？？

Question

如题

Answer 1

procedure sRenameFile(sDir: string); //取得所有的WWP文件
var
  sr: TSearchRec;
  i: integer;begin  if FindFirst(sDir + '\*', 0, sr) = 0 then
    repeat
  RenameFile(sr.Name,'11'+Sr.name);
    until FindNext(sr) <> 0;
  FindClose(sr);
end;

Answer 2

procedure sRenameFile(sDir: string); //取得所有的WWP文件
var
  sr: TSearchRec;
  i: integer;begin  if FindFirst(sDir + '\*', 0, sr) = 0 then
    repeat
    showmessage(sr.name);
    RenameFile(Sdir+'\'+sr.Name,Sdir+'\11'+Sr.name);
    DeleteFile(Sdir+'\'+sr.Name);
    until FindNext(sr) <> 0;
  FindClose(sr);
end;