摘要:
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 阅读全文
posted @ 2011-05-04 15:12
ryhan
阅读(1084)
评论(0)
推荐(0)
浙公网安备 33010602011771号