File Upload/Downloader

B

BW

I am creating an upload/download function for an extranet site. Files will
be uploaded to directory based upon the users login and associated project.
The function works as long as I use "c:\Temp" as the directory. When I use
any other hard coded directory or even Server.MapPath() the upload function
fails and returns the error: "Exception has been thrown by the target of an
invocation." Once I change the root directory to "c:\Temp", everything works
as it should. I've checked permissions, etc.

Any ideas? I have included the entire page/codebehind. The sub causing the
error is "DoUpload()".

Thanks in advance

Bernard

====================================================================================================================
FMU1.aspx
====================================================================================================================
<%@ Page Language="vb" AutoEventWireup="true" Codebehind="FMU1.aspx.vb"
Inherits="FileManagementUtility.aaLoader"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>aa - File Management Utility</title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5"
name="vs_targetSchema">
</HEAD>
<body>
<form id="Form1" encType="multipart/form-data" runat="server">
<P><asp:label id="dirContent" runat="server"></asp:label><asp:label
id="message" runat="server"></asp:label></P>
<p>
<hr>
<%-- File Upload --%>
<font face="verdana">Select File to Upload:</font> <input
id="uploadedFile" type="file" name="uploadedFile" runat="server">
<input id="upload" type="button" value="Upload" name="upload"
runat="server" OnServerClick="Page_Load">
<p>
</form>
</P>
</body>
</HTML>
'===================================================================================================================
'===================================================================================================================
'CodeBehind
'FMU1.aspx.vb
'===================================================================================================================
Imports System
Imports System.IO
Imports System.Text

Public Class aaLoader
Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()

End Sub
Protected WithEvents dirContent As System.Web.UI.WebControls.Label
Protected WithEvents message As System.Web.UI.WebControls.Label
Protected WithEvents uploadedFile As
System.Web.UI.HtmlControls.HtmlInputFile
Protected WithEvents upload As
System.Web.UI.HtmlControls.HtmlInputButton

'NOTE: The following placeholder declaration is required by the Web Form
Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Dim currentDir As String
Dim directorySeparatorChar As Char = Path.DirectorySeparatorChar

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

If Not IsPostBack() Then

Dim root As String = Server.MapPath("Projects") '"C:\temp"
Dim thisPage As String = Request.Path

currentDir = Request.Params("dir")
If currentDir Is Nothing Then
currentDir = root
End If
If Not currentDir.StartsWith(root) Then
currentDir = root
End If

Dim sb As New StringBuilder(4096)

If Not currentDir.Equals(root) Then
' not at the root
Dim currentDirParent As String
Dim lastIndex As Integer = _
currentDir.LastIndexOf(directorySeparatorChar)
If lastIndex <> -1 Then
currentDirParent = currentDir.Substring(0, lastIndex)
Else
currentDirParent = currentDir
End If
sb.Append("<a href=").Append(thisPage)
sb.Append("?dir=").Append(Server.UrlEncode(currentDirParent))
sb.Append("><img width=30 border=0
src=images/Up.gif></a><br>")
End If

DoUpload()

sb.Append("<br><img border=0 src=images/OpenFolder.gif> ")
sb.Append("<font face=verdana>")
sb.Append(currentDir)
sb.Append("</font>")
sb.Append("<br>")

sb.Append("<table>")
sb.Append("<tr bgcolor=#D8D8D8>")
sb.Append("<td width=200><font face=verdana size=3>File
Name</font></td>")
sb.Append("<td><font face=verdana size=3>File Type</font></td>")
sb.Append("<td><font face=verdana size=3>File Size</font></td>")
sb.Append("<td><font face=verdana size=3>Last
Modified</font></td>")
sb.Append("</tr>")


Dim dirs() As String
Try
dirs = Directory.GetDirectories(currentDir)

Dim d As String
For Each d In dirs
Dim dirName As String = Path.GetFileName(d)
sb.Append("<tr>")
sb.Append("<td><img src=images/Folder.gif> ")
sb.Append("<a href=").Append(thisPage)
sb.Append("?dir=").Append(Server.UrlEncode(currentDir))
sb.Append(directorySeparatorChar)
sb.Append(Server.UrlEncode(dirName))
sb.Append(">").Append(dirName).Append("</a>")
sb.Append("</td>")
sb.Append("<td><font face=verdana
size=2>folder</font></td>")
sb.Append("<td> </td>")
sb.Append("<td><font face=verdana size=2>")
'sb.Append(Directory.GetLastWriteTime(currentDir & "\" &
dirName).ToString())
sb.Append(Directory.GetLastWriteTime(currentDir & _
directorySeparatorChar.ToString() &
dirName).ToString())
sb.Append("</font></td>")
sb.Append("</tr>")


Next

Catch ex As Exception
message.Text = ex.Message.ToString
End Try


Try
Dim dirInfo As New DirectoryInfo(currentDir)
Dim files() As FileInfo
files = dirInfo.GetFiles()

Dim f As FileInfo
For Each f In files
Dim filename As String = f.Name
sb.Append("<tr>")
sb.Append("<td><img src=images/File.gif> ")
sb.Append("<a href=FileDownload.aspx?file=")
sb.Append(Server.UrlEncode(currentDir))
sb.Append(directorySeparatorChar)
sb.Append(Server.UrlEncode(filename))
sb.Append(">").Append(filename).Append("</a>")
sb.Append("</td>")
sb.Append("<td><font face=verdana
size=2>file</font></td>")
sb.Append("<td><font face=verdana size=2>")
sb.Append(f.Length.ToString())
sb.Append("</font></td>")
sb.Append("<td><font face=verdana size=2>")
sb.Append(File.GetLastWriteTime(currentDir & _
directorySeparatorChar.ToString() &
f.Name).ToString())
sb.Append("</font></td>")
sb.Append("</tr>")
Next
Catch ex As Exception
message.Text = ex.Message.ToString
End Try

sb.Append("</table>")
dirContent.Text = sb.ToString()
Else
Dim root As String = Server.MapPath("Projects") '"C:\temp"
Dim thisPage As String = Request.Path

currentDir = Request.Params("dir")
If currentDir Is Nothing Then
currentDir = root
End If
If Not currentDir.StartsWith(root) Then
currentDir = root
End If

Dim sb As New StringBuilder(4096)

If Not currentDir.Equals(root) Then
' not at the root
Dim currentDirParent As String
Dim lastIndex As Integer = _
currentDir.LastIndexOf(directorySeparatorChar)
If lastIndex <> -1 Then
currentDirParent = currentDir.Substring(0, lastIndex)
Else
currentDirParent = currentDir
End If
sb.Append("<a href=").Append(thisPage)
sb.Append("?dir=").Append(Server.UrlEncode(currentDirParent))
sb.Append("><img width=30 border=0
src=images/Up.gif></a><br>")
End If

DoUpload()

sb.Append("<br><img border=0 src=images/OpenFolder.gif> ")
sb.Append("<font face=verdana>")
sb.Append(currentDir)
sb.Append("</font>")
sb.Append("<br>")

sb.Append("<table>")
sb.Append("<tr bgcolor=#D8D8D8>")
sb.Append("<td width=200><font face=verdana size=3>File
Name</font></td>")
sb.Append("<td><font face=verdana size=3>File Type</font></td>")
sb.Append("<td><font face=verdana size=3>File Size</font></td>")
sb.Append("<td><font face=verdana size=3>Last
Modified</font></td>")
sb.Append("</tr>")


Dim dirs() As String
Try
dirs = Directory.GetDirectories(currentDir)

Dim d As String
For Each d In dirs
Dim dirName As String = Path.GetFileName(d)
sb.Append("<tr>")
sb.Append("<td><img src=images/Folder.gif> ")
sb.Append("<a href=").Append(thisPage)
sb.Append("?dir=").Append(Server.UrlEncode(currentDir))
sb.Append(directorySeparatorChar)
sb.Append(Server.UrlEncode(dirName))
sb.Append(">").Append(dirName).Append("</a>")
sb.Append("</td>")
sb.Append("<td><font face=verdana
size=2>folder</font></td>")
sb.Append("<td> </td>")
sb.Append("<td><font face=verdana size=2>")
'sb.Append(Directory.GetLastWriteTime(currentDir & "\" &
dirName).ToString())
sb.Append(Directory.GetLastWriteTime(currentDir & _
directorySeparatorChar.ToString() &
dirName).ToString())
sb.Append("</font></td>")
sb.Append("</tr>")


Next

Catch ex As Exception
message.Text = ex.Message.ToString
End Try


Try
Dim dirInfo As New DirectoryInfo(currentDir)
Dim files() As FileInfo
files = dirInfo.GetFiles()

Dim f As FileInfo
For Each f In files
Dim filename As String = f.Name
sb.Append("<tr>")
sb.Append("<td><img src=images/File.gif> ")
sb.Append("<a href=FileDownload.aspx?file=")
sb.Append(Server.UrlEncode(currentDir))
sb.Append(directorySeparatorChar)
sb.Append(Server.UrlEncode(filename))
sb.Append(">").Append(filename).Append("</a>")
sb.Append("</td>")
sb.Append("<td><font face=verdana
size=2>file</font></td>")
sb.Append("<td><font face=verdana size=2>")
sb.Append(f.Length.ToString())
sb.Append("</font></td>")
sb.Append("<td><font face=verdana size=2>")
sb.Append(File.GetLastWriteTime(currentDir & _
directorySeparatorChar.ToString() &
f.Name).ToString())
sb.Append("</font></td>")
sb.Append("</tr>")
Next
Catch ex As Exception
message.Text = ex.Message.ToString
End Try

sb.Append("</table>")
dirContent.Text = sb.ToString()
End If

End Sub

Sub DoUpload()

If Not (uploadedFile.PostedFile Is Nothing) Then
Try
Dim postedFile = uploadedFile.PostedFile
Dim filename As String =
Path.GetFileName(postedFile.FileName)
Dim contentType As String = postedFile.ContentType
Dim contentLength As Integer = postedFile.ContentLength
postedFile.SaveAs(currentDir & _
directorySeparatorChar.ToString() & filename)
Catch ex As Exception
message.Text = "Failed uploading file because: " &
ex.Message.ToString
End Try
End If
End Sub
End Class
 
B

BW

It was permissions...

BW said:
I am creating an upload/download function for an extranet site. Files will
be uploaded to directory based upon the users login and associated project.
The function works as long as I use "c:\Temp" as the directory. When I use
any other hard coded directory or even Server.MapPath() the upload function
fails and returns the error: "Exception has been thrown by the target of an
invocation." Once I change the root directory to "c:\Temp", everything
works as it should. I've checked permissions, etc.

Any ideas? I have included the entire page/codebehind. The sub causing the
error is "DoUpload()".

Thanks in advance

Bernard

====================================================================================================================
FMU1.aspx
====================================================================================================================
<%@ Page Language="vb" AutoEventWireup="true" Codebehind="FMU1.aspx.vb"
Inherits="FileManagementUtility.aaLoader"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>aa - File Management Utility</title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5"
name="vs_targetSchema">
</HEAD>
<body>
<form id="Form1" encType="multipart/form-data" runat="server">
<P><asp:label id="dirContent" runat="server"></asp:label><asp:label
id="message" runat="server"></asp:label></P>
<p>
<hr>
<%-- File Upload --%>
<font face="verdana">Select File to Upload:</font> <input
id="uploadedFile" type="file" name="uploadedFile" runat="server">
<input id="upload" type="button" value="Upload" name="upload"
runat="server" OnServerClick="Page_Load">
<p>
</form>
</P>
</body>
</HTML>
'===================================================================================================================
'===================================================================================================================
'CodeBehind
'FMU1.aspx.vb
'===================================================================================================================
Imports System
Imports System.IO
Imports System.Text

Public Class aaLoader
Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()

End Sub
Protected WithEvents dirContent As System.Web.UI.WebControls.Label
Protected WithEvents message As System.Web.UI.WebControls.Label
Protected WithEvents uploadedFile As
System.Web.UI.HtmlControls.HtmlInputFile
Protected WithEvents upload As
System.Web.UI.HtmlControls.HtmlInputButton

'NOTE: The following placeholder declaration is required by the Web
Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Dim currentDir As String
Dim directorySeparatorChar As Char = Path.DirectorySeparatorChar

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

If Not IsPostBack() Then

Dim root As String = Server.MapPath("Projects") '"C:\temp"
Dim thisPage As String = Request.Path

currentDir = Request.Params("dir")
If currentDir Is Nothing Then
currentDir = root
End If
If Not currentDir.StartsWith(root) Then
currentDir = root
End If

Dim sb As New StringBuilder(4096)

If Not currentDir.Equals(root) Then
' not at the root
Dim currentDirParent As String
Dim lastIndex As Integer = _
currentDir.LastIndexOf(directorySeparatorChar)
If lastIndex <> -1 Then
currentDirParent = currentDir.Substring(0, lastIndex)
Else
currentDirParent = currentDir
End If
sb.Append("<a href=").Append(thisPage)

sb.Append("?dir=").Append(Server.UrlEncode(currentDirParent))
sb.Append("><img width=30 border=0
src=images/Up.gif></a><br>")
End If

DoUpload()

sb.Append("<br><img border=0 src=images/OpenFolder.gif> ")
sb.Append("<font face=verdana>")
sb.Append(currentDir)
sb.Append("</font>")
sb.Append("<br>")

sb.Append("<table>")
sb.Append("<tr bgcolor=#D8D8D8>")
sb.Append("<td width=200><font face=verdana size=3>File
Name</font></td>")
sb.Append("<td><font face=verdana size=3>File
Type</font></td>")
sb.Append("<td><font face=verdana size=3>File
Size</font></td>")
sb.Append("<td><font face=verdana size=3>Last
Modified</font></td>")
sb.Append("</tr>")


Dim dirs() As String
Try
dirs = Directory.GetDirectories(currentDir)

Dim d As String
For Each d In dirs
Dim dirName As String = Path.GetFileName(d)
sb.Append("<tr>")
sb.Append("<td><img src=images/Folder.gif> ")
sb.Append("<a href=").Append(thisPage)
sb.Append("?dir=").Append(Server.UrlEncode(currentDir))
sb.Append(directorySeparatorChar)
sb.Append(Server.UrlEncode(dirName))
sb.Append(">").Append(dirName).Append("</a>")
sb.Append("</td>")
sb.Append("<td><font face=verdana
size=2>folder</font></td>")
sb.Append("<td> </td>")
sb.Append("<td><font face=verdana size=2>")
'sb.Append(Directory.GetLastWriteTime(currentDir & "\"
& dirName).ToString())
sb.Append(Directory.GetLastWriteTime(currentDir & _
directorySeparatorChar.ToString() &
dirName).ToString())
sb.Append("</font></td>")
sb.Append("</tr>")


Next

Catch ex As Exception
message.Text = ex.Message.ToString
End Try


Try
Dim dirInfo As New DirectoryInfo(currentDir)
Dim files() As FileInfo
files = dirInfo.GetFiles()

Dim f As FileInfo
For Each f In files
Dim filename As String = f.Name
sb.Append("<tr>")
sb.Append("<td><img src=images/File.gif> ")
sb.Append("<a href=FileDownload.aspx?file=")
sb.Append(Server.UrlEncode(currentDir))
sb.Append(directorySeparatorChar)
sb.Append(Server.UrlEncode(filename))
sb.Append(">").Append(filename).Append("</a>")
sb.Append("</td>")
sb.Append("<td><font face=verdana
size=2>file</font></td>")
sb.Append("<td><font face=verdana size=2>")
sb.Append(f.Length.ToString())
sb.Append("</font></td>")
sb.Append("<td><font face=verdana size=2>")
sb.Append(File.GetLastWriteTime(currentDir & _
directorySeparatorChar.ToString() &
f.Name).ToString())
sb.Append("</font></td>")
sb.Append("</tr>")
Next
Catch ex As Exception
message.Text = ex.Message.ToString
End Try

sb.Append("</table>")
dirContent.Text = sb.ToString()
Else
Dim root As String = Server.MapPath("Projects") '"C:\temp"
Dim thisPage As String = Request.Path

currentDir = Request.Params("dir")
If currentDir Is Nothing Then
currentDir = root
End If
If Not currentDir.StartsWith(root) Then
currentDir = root
End If

Dim sb As New StringBuilder(4096)

If Not currentDir.Equals(root) Then
' not at the root
Dim currentDirParent As String
Dim lastIndex As Integer = _
currentDir.LastIndexOf(directorySeparatorChar)
If lastIndex <> -1 Then
currentDirParent = currentDir.Substring(0, lastIndex)
Else
currentDirParent = currentDir
End If
sb.Append("<a href=").Append(thisPage)

sb.Append("?dir=").Append(Server.UrlEncode(currentDirParent))
sb.Append("><img width=30 border=0
src=images/Up.gif></a><br>")
End If

DoUpload()

sb.Append("<br><img border=0 src=images/OpenFolder.gif> ")
sb.Append("<font face=verdana>")
sb.Append(currentDir)
sb.Append("</font>")
sb.Append("<br>")

sb.Append("<table>")
sb.Append("<tr bgcolor=#D8D8D8>")
sb.Append("<td width=200><font face=verdana size=3>File
Name</font></td>")
sb.Append("<td><font face=verdana size=3>File
Type</font></td>")
sb.Append("<td><font face=verdana size=3>File
Size</font></td>")
sb.Append("<td><font face=verdana size=3>Last
Modified</font></td>")
sb.Append("</tr>")


Dim dirs() As String
Try
dirs = Directory.GetDirectories(currentDir)

Dim d As String
For Each d In dirs
Dim dirName As String = Path.GetFileName(d)
sb.Append("<tr>")
sb.Append("<td><img src=images/Folder.gif> ")
sb.Append("<a href=").Append(thisPage)
sb.Append("?dir=").Append(Server.UrlEncode(currentDir))
sb.Append(directorySeparatorChar)
sb.Append(Server.UrlEncode(dirName))
sb.Append(">").Append(dirName).Append("</a>")
sb.Append("</td>")
sb.Append("<td><font face=verdana
size=2>folder</font></td>")
sb.Append("<td> </td>")
sb.Append("<td><font face=verdana size=2>")
'sb.Append(Directory.GetLastWriteTime(currentDir & "\"
& dirName).ToString())
sb.Append(Directory.GetLastWriteTime(currentDir & _
directorySeparatorChar.ToString() &
dirName).ToString())
sb.Append("</font></td>")
sb.Append("</tr>")


Next

Catch ex As Exception
message.Text = ex.Message.ToString
End Try


Try
Dim dirInfo As New DirectoryInfo(currentDir)
Dim files() As FileInfo
files = dirInfo.GetFiles()

Dim f As FileInfo
For Each f In files
Dim filename As String = f.Name
sb.Append("<tr>")
sb.Append("<td><img src=images/File.gif> ")
sb.Append("<a href=FileDownload.aspx?file=")
sb.Append(Server.UrlEncode(currentDir))
sb.Append(directorySeparatorChar)
sb.Append(Server.UrlEncode(filename))
sb.Append(">").Append(filename).Append("</a>")
sb.Append("</td>")
sb.Append("<td><font face=verdana
size=2>file</font></td>")
sb.Append("<td><font face=verdana size=2>")
sb.Append(f.Length.ToString())
sb.Append("</font></td>")
sb.Append("<td><font face=verdana size=2>")
sb.Append(File.GetLastWriteTime(currentDir & _
directorySeparatorChar.ToString() &
f.Name).ToString())
sb.Append("</font></td>")
sb.Append("</tr>")
Next
Catch ex As Exception
message.Text = ex.Message.ToString
End Try

sb.Append("</table>")
dirContent.Text = sb.ToString()
End If

End Sub

Sub DoUpload()

If Not (uploadedFile.PostedFile Is Nothing) Then
Try
Dim postedFile = uploadedFile.PostedFile
Dim filename As String =
Path.GetFileName(postedFile.FileName)
Dim contentType As String = postedFile.ContentType
Dim contentLength As Integer = postedFile.ContentLength
postedFile.SaveAs(currentDir & _
directorySeparatorChar.ToString() & filename)
Catch ex As Exception
message.Text = "Failed uploading file because: " &
ex.Message.ToString
End Try
End If
End Sub
End Class
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Upload files to UNC network path from webserver 2
Help with Web Custom Control 1
Image shifts to the right when export the page to pdf 4
trying to build a string with stringbuilder fails 3
Only one table shows up with the information 2
got problem with exportGridview Data into Excel format 0
ERROR MESSAGE CITES DIFFERENT LINE FROM PROBLEM 6
<INPUT = 'File'> upload problem 10

Members online

No members online now.
Total: 35 (members: 1, guests: 34)
Robots: 97

Forum statistics

Threads
473,754
Messages
2,569,527
Members
44,998
Latest member
MarissaEub

Latest Threads

Top