unable to write to file

[anesor]

Hi..
I am trying to create a xml file and write some information into the xml file but when i open the xml file i don't have any information.
Even if i try to create a txt file and do the same thing but it is still the same.
i am not sure why..
can someone help me...

Dim path As String = "School"
        Dim target As String = "School/latcomers.txt"
 
        Try
            If Directory.Exists(path) = False Then
                Directory.CreateDirectory(path)
                Dim sw As StreamWriter = File.CreateText(target)
                sw.Write(("<info class=""1A"" indexno=""01"" date=""10/10/2005"" time=""10:18:00""/>"))
 
            ElseIf Directory.Exists(path) = True Then
                Dim sw As StreamWriter = File.CreateText(target)
                sw.Write("<info class=""1A"" indexno=""01"" date=""10/10/2005"" time=""10:18:00""/>")
            End If
 
        Catch ex As Exception
            MsgBox("unable to create")
        End Try

Thanxs......