Web Hosting, Free Web Site Builder & Domain Name, Web Hosting Made Easy By Brinkster

File Upload to db-directory

Added By: bramnauta

Rated:

(4 of 5) by 27.

Rate Snippet: 12345

Description:

You can upload files to your db-directory with the use of this snippet. Place the page in the root of your account!

Language: Visual Basic .NET

Save to web space
E-mail Link

Code Snippet:

Sub DoUpload(Sender As Object, e As System.EventArgs)
          Dim sPath as String
          Dim sFile as String
          Dim sFullPath as String
          Dim sSplit() as String
          Dim sPathFriendly as String
          
         
          
          'Upload to same path as script
          'Internet Anonymous User must have write permissions
          
          sPath = Server.MapPath(".\db\")
         If Right(sPath, 1) <> "\" then 
			sPathFriendly = sPath 'Friendly path name for display
			sPath = sPath & "\"
		Else
			sPathFriendly = Left(sPath, Len(sPath) - 1)
		End If
			
          
          'Save as same file name being posted
          'The code below resolves the file name
          '(removes path info)
          sFile = txtUpload.PostedFile.FileName
          sSplit = Split(sFile, "\")
          sFile = sSplit(Ubound(sSplit))
          
          
          
          sFullPath = sPath & sFile
		  Try
          txtUpload.PostedFile.SaveAs(sFullPath)
         lblResults.Text = "Upload of File " & sFile & " succeeded"
         
         Catch Ex as Exception
			
			lblResults.Text = "Upload of File " & sFile & " failed for the following reason: " & Ex.Message
         Finally
			lblResults.Font.Bold = True
			lblResults.Visible = true
         End Try
		
       End Sub

</script>
<html>

<body>

Select File To Upload:</b></FONT>
           <input id="txtUpload" type=file runat=server>
			<P align = CENTER>
          <asp:button id=btnUpload Text="Upload File" OnClick="DoUpload" runat=server/>
			
          <hr noshade>

<asp:label id="lblResults" Visible=false runat=server/>

</form>

</body>
</html>