用delphi把: procedure TForm1.Button1Click(Sender: TObject); var sr : TSearchRec; ts : TStringList; i : Integer; const s = 'c:\gyj\'; //把所有要改名的都放在这个文件夹下,根据你的情况修改。 begin if DirectoryExists(s) then begin ts := TStringList.Create; try if FindFirst(s+'*.*', faDirectory , sr) = 0 then begin repeat if (sr.Attr and faDirectory ) = sr.Attr then begin if (sr.Name<>'.') and (sr.Name<>'..') then ts.Add(sr.Name); end; until FindNext(sr) <> 0 end; FindClose(sr); if ts.Count > 0 then for i := 0 to ts.Count - 1 do if DirectoryExists(s+ts.Strings[i]) then RenameFile(s+ts.Strings[i],s+'SH-'+ts.Strings[i]); finally ts.Free; end; end; end;
procedure TForm1.Button1Click(Sender: TObject);
var
sr : TSearchRec;
ts : TStringList;
i : Integer;
const
s = 'c:\gyj\'; //把所有要改名的都放在这个文件夹下,根据你的情况修改。
begin
if DirectoryExists(s) then
begin
ts := TStringList.Create;
try
if FindFirst(s+'*.*', faDirectory , sr) = 0 then
begin
repeat
if (sr.Attr and faDirectory ) = sr.Attr then
begin
if (sr.Name<>'.') and (sr.Name<>'..') then
ts.Add(sr.Name);
end;
until FindNext(sr) <> 0
end;
FindClose(sr); if ts.Count > 0 then
for i := 0 to ts.Count - 1 do
if DirectoryExists(s+ts.Strings[i]) then
RenameFile(s+ts.Strings[i],s+'SH-'+ts.Strings[i]);
finally
ts.Free;
end;
end;
end;