Public Sub buildHomePageXML_File()
Dim fi() As FileInfo = New DirectoryInfo(Server.MapPath("~/gallery/photos/large/")).GetFiles
Dim sb As New StringBuilder
Dim var1 As String = ""
Dim var2 As String = ""
var2 = InputBox("Please Enter Hyperlink", "Hyperlink")
sb.AppendLine("")
sb.AppendLine("")
sb.AppendLine(" ")
For Each File In fi
var1 = InputBox("Please Enter Photo Caption", File.Name)
sb.AppendLine(" ")
Next
sb.AppendLine(" ")
sb.AppendLine("")
Dim w As System.IO.StreamWriter = New System.IO.StreamWriter(System.IO.File.Open(Server.MapPath("~/ss.xml"), IO.FileMode.Create))
w.Write(sb.ToString)
w.Close()
End Sub
|