摘要: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
阅读全文
浙公网安备 33010602011771号