1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim trv As New TreeNode
Dim strpath As String = Server.MapPath("Uploads\ ")
Try
If FileUpload1.HasFile Then
FileUpload1.SaveAs(strpath & FileUpload1.FileName)
If File.Exists("C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\Upload\Upload\" & FileUpload1.FileName) Then
File.Delete("C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\Upload\Upload\" & FileUpload1.FileName)
End If
File.Move("C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\Upload\Upload\Uploads\" & FileUpload1.FileName, "C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\Upload\Upload\" & FileUpload1.FileName)
Image1.ImageUrl = "~\" & FileUpload1.FileName
End If
Exit Sub
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub |
Partager