可是我不太会啊,再加上时间紧,我没时间再写了,能不能帮忙给写下啊,分不够可再加,谢谢!

解决方案 »

  1.   

    你要改的是目录名,还是文件名? 要改的的什么规律?
      

  2.   

    情况是这样,就是一文件夹下有许多东西,我现在是想就改这文件夹的名字,名字改为在已有基础上添加几个字母就可以了,可是象这样的文件夹有许多。
      

  3.   

    做个程序吧,这个世界上哪里有那么多的捕捞二号
      

  4.   

    用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;