delphiのバッチサブディレクトリの名前を変更する方法は？

Question

私はあるフォルダに数百のサブディレクトリを持ち、サブディレクトリには何百ものサブフォルダがあります。私は、サブフォルダ名として「（番号）」を接頭辞にしたい、サブフォルダはそれが含まれている場合は、サブフォルダ名は、「（番号）」を含めるかどうかを確認したい：たとえば：

rootfolder 
     --- subfolder1 
       ---subfolder11(100082) 
         --- file1.txt 
     --- subfolder2(100083) 
        ---subfolder22(100085) 
         --- file2.txt 
         --- subfolder222 
            ---subfolder2222(80001) 
                 ---file3.txt 

私が持っていると思います。

rootfolder 
     --- subfolder1 
       ---(100082)subfolder11 
         --- file1.txt 
     --- (100083)subfolder2 
        ---(100085)subfolder22 
         --- file2.txt 
         --- subfolder222 
            --- (80001)subfolder2222 
                 --- file3.txt 

私を助けてくれますか？ ありがとうございます。

Answer 1

は、あなたのニーズに合わせてカスタマイズ、サブディレクトリの名前を変更したコードです：あなたがで立ち往生している

procedure ProcessDir(const DirName: string); 
var 
    Path, NextDir: string; 
    F: TSearchRec; 

begin 
    Path:= DirName + '/*.*'; 
    if FindFirst(Path, faAnyFile, F) = 0 then begin 
    try 
     repeat 
     if (F.Attr and faDirectory <> 0) then begin 
      if (F.Name <> '.') and (F.Name <> '..') then begin 
      NextDir:= DirName + '/' + F.Name; 
      ProcessDir(NextDir); 
// generate new folder name here, next line just for testing 
      RenameFile(NextDir, NextDir + '_Renamed'); 
      end; 
     end; 
     until FindNext(F) <> 0; 
    finally 
     FindClose(F); 
    end; 
    end; 
end; 

Answer 2

すべてのフォルダを見つけるには、再帰的なディレクトリ検索が必要です。ボトムアップから名前を変更します。

Answer 3

まあ、一例として、これはフォルダツリーに嫌なことをして、私の抽出物である - それは彼らの名前は変更されません、それはそれらを破壊する：

procedure splatDirectory(const dirSpec:string); 
var searchRec:TsearchRec; 
    searchResult:integer; 
begin 
    searchResult:=findFirst(dirSpec+'\*.*',faDirectory,searchRec); 
    try 
    while (0=searchResult) do 
    begin 
     if ((searchRec.attr and faDirectory)>0) then 
     begin 
     if (searchRec.name<>'.') and (searchRec.name<>'..') then 
      splatDirectory(dirSpec+'\'+searchRec.Name) 
     end 
     else 
     deleteFile(dirSpec+'\'+searchRec.Name); 
     searchResult:=findNext(searchRec); 
    end; 
    finally 
    findClose(searchRec); 
    end; 
    removeDir(dirSpec); 
end; 

このない作品 - コードを作業からコピー。ここで