[Blue]Imports[/Blue] System.Data
[Blue]Imports[/Blue] System.IO
[Blue]Partial[/Blue] [Blue]Class[/Blue] Default1
[Blue]Inherits[/Blue] System.Web.UI.Page
[Blue]Protected[/Blue] [Blue]Sub[/Blue] Page_Load([Blue]ByVal[/Blue] sender [Blue]As[/Blue] Object, [Blue]ByVal[/Blue] e [Blue]As[/Blue] System.EventArgs) [Blue]Handles[/Blue] [Blue]Me[/Blue].Load
[Blue]Dim[/Blue] ds [Blue]As[/Blue] [Blue]New[/Blue] DataSet
[Blue]Dim[/Blue] filePath [Blue]As[/Blue] [Blue]String[/Blue] = [Red]"C:\Inetpub\vhosts\intraflux.com\httpdocs\projects\hmgtesting\data"[/Red]
[Blue]Dim[/Blue] fileName [Blue]As[/Blue] [Blue]String[/Blue] = [Red]"master.xml"[/Red]
ds.Tables.Add(GetData)
[Blue]If[/Blue] Directory.Exists(filePath) = [Blue]False[/Blue] [Blue]Then[/Blue]
Directory.CreateDirectory(filePath)
[Blue]End[/Blue] [Blue]If[/Blue]
ds.WriteXml(Path.Combine(filePath, fileName))
[Blue]Dim[/Blue] copy_test [Blue]As[/Blue] [Blue]New[/Blue] FileInfo(Path.Combine(filePath, fileName))
Response.Write(copy_test.CreationTime)
[Blue]End[/Blue] [Blue]Sub[/Blue]
[Blue]Private[/Blue] [Blue]Function[/Blue] GetData() [Blue]As[/Blue] DataTable
[Green]' Declarations [/Green]
[Blue]Dim[/Blue] dt [Blue]As[/Blue] [Blue]New[/Blue] DataTable
[Blue]Dim[/Blue] dr [Blue]As[/Blue] DataRow
[Green]' Add some columns [/Green]
dt.Columns.Add([Red]"Column1"[/Red])
dt.Columns.Add([Red]"Column2"[/Red])
[Green]' Add some test data [/Green]
[Blue]For[/Blue] i [Blue]As[/Blue] [Blue]Integer[/Blue] = 0 [Blue]To[/Blue] 10
dr = dt.NewRow
dr([Red]"Column1"[/Red]) = i
dr([Red]"Column2"[/Red]) = [Red]"Some Text "[/Red] & i
dt.Rows.Add(dr)
[Blue]Next[/Blue]
[Green]' Return the DataTable [/Green]
[Blue]Return[/Blue] dt
[Blue]End[/Blue] [Blue]Function[/Blue]
[Blue]End[/Blue] [Blue]Class[/Blue]