>Convert.ToBase64String(System.Text.Encoding.Default.GetBytes(lcXml)) >>
> ' Create a file > ' expC1 Node > ' expC2 File > Public Function CreateFile(ByVal tcXML As String, ByVal tcFile As String) As Boolean > Dim lcFile As String = "" > Dim loByte() As Byte = Nothing > Dim loFileStream As System.IO.FileStream = Nothing > > ' Reset the values > cError = "" > > Try > ReDim loByte(tcXML.Length) > > ' Decode the value > loByte = Convert.FromBase64String(tcXML) > > ' Create the file > loFileStream = New System.IO.FileStream(tcFile, System.IO.FileMode.Create) > > ' Write the file > loFileStream.Write(loByte, 0, loByte.Length) > > ' Close the file > loFileStream.Close() > > Catch loError As Exception > cError = loError.Message > Return False > End Try > > Return True > End Function >>
'Save Dim lcXml As String = "<Test>Hello</Test>" Dim writer As New System.IO.StreamWriter("c:\Save") writer.Write(Convert.ToBase64String(System.Text.Encoding.Default.GetBytes(lcXml))) writer.Close() 'Restore Dim reader As New System.IO.StreamReader("c:\Save") Dim lcXmlback As String = System.Text.Encoding.Default.GetString(Convert.FromBase64String(reader.ReadToEnd())) reader.Close()