how can I refresh a folder on server after created it with code on runtime

Protected Sub Button10_Click(sender As Object, e As System.EventArgs) Handles Button10.Click
       If TextBox3.Text = Nothing Or TextBox4.Text = Nothing Then
           Exit Sub
       End If
       Dim Fname As String
       Dim path As String
       path = Request.PhysicalApplicationPath
       If FileUpload1.HasFile Then
           Fname = FileUpload1.FileName
           path += "\images\characters\"
           path += Fname

           FileUpload1.SaveAs(path)
       End If

       Dim linkpath As String = "abo-rashed.aspx?caracter=" + TextBox3.Text + "&txt=" + TextBox4.Text
       Session("caracter-name") = TextBox3.Text

       Dim doc As XDocument = XDocument.Load(CType(Session.Item("file"), String))
       'Dim ele As XElement = New XElement("comment", TextBox3.Text)
       Dim ele As XElement = New XElement("cd", "")
       doc.Root.AddFirst(ele)

       Dim ele2 As XElement = New XElement("title", "images\characters\" + Fname)
       Dim ele1 As XElement = New XElement("link", linkpath)
       Dim ele3 As XElement = New XElement("txt", linkpath)



       doc.Root.Element("cd").Add(ele1, ele2, ele3)



       doc.Save(CType(Session.Item("file"), String))
       mysource()
       '--------------------------------------------add folders---------------------------------
       Directory.CreateDirectory(Request.PhysicalApplicationPath & "images\caracter-main\" + TextBox3.Text)
       Directory.CreateDirectory(Request.PhysicalApplicationPath & "images\caracter-main\" + TextBox3.Text + "\bg")
       Directory.CreateDirectory(Request.PhysicalApplicationPath & "images\caracter-main\" + TextBox3.Text + "\bg-real")
       Directory.CreateDirectory(Request.PhysicalApplicationPath & "images\caracter-main\" + TextBox3.Text + "\card")
       Directory.CreateDirectory(Request.PhysicalApplicationPath & "images\caracter-main\" + TextBox3.Text + "\card-real")
       Directory.CreateDirectory(Request.PhysicalApplicationPath & "images\caracter-main\" + TextBox3.Text + "\logo")
       Directory.CreateDirectory(Request.PhysicalApplicationPath & "images\caracter-main\" + TextBox3.Text + "\trach")



       Server.Transfer("AdminCaracters.aspx")
   End Sub

Dim Fname1 As String
       Dim Fname2 As String
       Dim Fname3 As String
       Dim Fname4 As String
       Dim path1 As String
       Dim path2 As String
       Dim path3 As String
       Dim path4 As String
       Dim CNAME As String
       Dim pathlink As String
       If Not Session.Item("caracter-name") Is Nothing Then
           CNAME = Session.Item("caracter-name").ToString
       Else
           If Not TextBox3.Text = Nothing Then
               CNAME = TextBox3.Text
           End If
       End If
       If CNAME = Nothing Then
           Exit Sub
       End If
       pathlink = Request.PhysicalApplicationPath + "\images\caracter-main\" + CNAME + "\bg\"


       Fname1 = FileUpload2.FileName
       Fname2 = FileUpload3.FileName
       Fname3 = FileUpload4.FileName
       Fname4 = FileUpload5.FileName


       path1 = pathlink + Fname1
       path2 = pathlink + Fname2
       path3 = pathlink + Fname3
       path4 = pathlink + Fname4

       FileUpload2.SaveAs(path1)
       FileUpload3.SaveAs(path2)
       FileUpload4.SaveAs(path3)
       FileUpload5.SaveAs(path4)





   End Sub