摘要:
Dim xmlDoc,xmlRoot,xmlNode,lastNode,newNode Dim doc,docRoot,i,flag Dim strNodeName,strPath,docPath Dim xmlFolder,docFolder,oshell Set oshell = CreateObject("Shell.Application") Set xmlFolder = oshell.BrowseForFolder(0, "选择目标XML文档所在的目录", 0, ssfDRIVES) strPath = xmlFolder.Self.Path 阅读全文