VB字符串转XML文件
开发工具：VB6.0
现有如下代码，请各路高手赐教！小弟不胜感激~~如有源码更好！
Private Sub Command1_Click()
Dim xmlStr As String
xmlStr = getXML
'请问如何把xmlStr转成一个xml文档?
End Sub
Public Function getXML() As String
Dim xml As String
xml = xml + "<?xml version='1.0' encoding='UTF-8'?>"
xml = xml + "<FREIGHTCPIC>"
xml = xml + " <HEADER>"
xml = xml + " <TYPE>IN</TYPE>"
xml = xml + " <WORKTYPE>0</WORKTYPE>"
xml = xml + " <CLASSESTYPE>1</CLASSESTYPE>"
xml = xml + " <LOGINUSERNAME>ayyt</LOGINUSERNAME>"
xml = xml + " <LOGINPASSWORD>ayyt</LOGINPASSWORD>"
xml = xml + " </HEADER>"
xml = xml + "</FREIGHTCPIC>"
getXML = xml
End Function
[解决办法]
新建一个文件，把字串写进去，保存为xml文档格式即可！
