Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim f As New FileInfo("d:\doc.xml")
If f.Exists = False Then
f.Create()
f.Refresh()
End If
Dim s As String = ""
Dim sw As StreamWriter = f.CreateText()
s = "<?xml version=""1.0"" encoding=""GB2312""?>"
sw.WriteLine(s)
sw.WriteLine("<doc>")
sw.WriteLine(" <assembly>")
sw.WriteLine("<userId>34</userId>")
sw.WriteLine("<userName>張三</userName>")
sw.WriteLine("<qxbz>1</qxbz>")
sw.WriteLine(" </assembly>")
sw.WriteLine("</doc>")
sw.Flush()
sw.Close()
Process.Start("d:\doc.xml")
End Sub
End Class