遍历该文件夹下的所有文件并生成xml树

文件路径添加并保存为XML文件代码

最新推荐文章于 2025-08-25 07:30:27 发布

原创最新推荐文章于 2025-08-25 07:30:27 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#xml #path #file

C++ Builder软件开发自用文档专栏收录该内容

12 篇文章

订阅专栏

博客给出两段代码，一段是AddPath函数，用于递归添加文件和目录路径到XML节点；另一段是FormCreate函数，创建XML文档，设置根目录，调用AddPath函数添加路径，最后将XML文档保存到指定文件。

void AddPath(AnsiString Path, _di_IXMLNode node)
{
     AnsiString FilePath=Path+"//*.*";
     TSearchRec sr;
     sr.Name=FilePath;
     int done;
     done = FindFirst(FilePath,faAnyFile,sr);
     AnsiString FileName;
     while (!done)      {
          FileName=Path+"//"+sr.Name;
          FileSetAttr(FileName,0);
          if(sr.Attr & faDirectory&&sr.Name[1]!='.') {
              _di_IXMLNode ix = node->AddChild("dir");
              ix->Attributes["id"] = "id";
              ix->Attributes["name"] = sr.Name;
              ix->Attributes["path"] = Path;
              AddPath(FileName, ix);
          }
          else {
              _di_IXMLNode ix = node->AddChild("file");
              ix->Attributes["id"] = "id";
              ix->Attributes["name"] = sr.Name;
              ix->Attributes["path"] = Path;
              ix->Attributes["type"] = "type";
          }

          done = FindNext(sr);
     }
     FindClose(sr);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
_di_IXMLDocument X = NewXMLDocument();
AnsiString rootpath = "D://Temp";
X->Active = true;
_di_IXMLNode ix = X->AddChild("dir");
ix->Attributes["id"] = "";
ix->Attributes["name"] = ExtractFileName(rootpath);
ix->Attributes["path"] = ExtractFilePath(rootpath);
AddPath(rootpath, ix);
X->SaveToFile("d://temp//files.xml");
}
//---------------------------------------------------------------------------