Protected WithEvents ProductPicture As System.Web.UI.WebControls.Label
Protected WithEvents File1 As System.Web.UI.HtmlControls.HtmlInputFile
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PathName = Request.MapPath("data")
If File1.PostedFile.FileName.Length > 0 Then
'createfolder(PathName)
File1.PostedFile.SaveAs(PathName + "/logo.jpg")
ProductPicture.Text = "<img src='data/up.jpg' border=0>"
End If