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

最新推荐文章于 2023-05-22 09:26:15 发布

阿阌

最新推荐文章于 2023-05-22 09:26:15 发布

阅读量1.1k

点赞数

分类专栏： C++ Builder软件开发自用文档文章标签： xml path file

本文链接：https://blog.csdn.net/david_ch/article/details/468316

版权

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

12 篇文章 0 订阅

订阅专栏

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");
}
//---------------------------------------------------------------------------