Click
Protected Sub uxUploadButton_Click(ByVal sender As Object, ByVal e As EventArgs) If uxFileUpload.HasFile Then Dim id As Integer = Session(Constants.SESSION_ID) Dim shortFileName As String = uxFileUpload.FileName Dim serverPath as String = Server.MapPath("~\uploads\TD\" & id.ToString()) If Not Directory.Exists(serverPath) Then Directory.CreateDirectory(serverPath) End If Dim serverFile As String = Path.Combine(serverPath, shortFileName) uxFileUpload.SaveAs(serverFile) End If End Sub
ScrewTurn Wiki version 3.0.1.400. Some of the icons created by FamFamFam. Except where noted, all contents Copyright © 1999-2024, Patrick Jasinski.