'说明 : 此函数用于 生产出一个 XML 文件 中的 节点 '参数 : 'varName : 标签的名字 'varValue 值 Public Function GetvarXML(varName,varValue) GetvarXML = "<Variable>" & vbCrLf & _ "<Name>" & varName & "</Name>" & vbCrlF & _ "<Value>" & varValue & "</Value>" & vbCrlF & _ "</Variable>" & vbCrLf End Function '说明 : 此函数用于写入一个xml 文件 到磁盘中 '参数 : 'fileName : 文件的绝对路径(包含文件的文件名) 'varXML 值 文件的内容 Public Sub WriteStringToFile(fileName,varXML) Dim fso,file Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.CreateTextFile(fileName,True) file.WriteLine(varXML) file.Close Set file = nothing Set fso = nothing End Sub '定义一个strXML内容的变量 Dim strXML '下面过程拼接节点到xml,并把内容保存在strXML这个变量中 strXML = "<Environment>" & vbCrLf strXML = strXML & GetvarXML("FirstName","Tarun") strXML = strXML & GetvarXML("LastName","Lalwani") strXML = strXML & "</Environment>" & vbCrLf '把strXML中的内容输出到 磁盘中生成xml文件 WriteStringToFile "c:\Testing.xml",strXML '通过LoadFromFile 方法加载环境变量的xml Environment.LoadFromFile "c:\Testing.xml" '输出LastName 和 FirstName的对应的值 MsgBox Environment("LastName") & "," & Environment("FirstName")