I have an asp.net application that works with a SQL server database on
server No. 1 but I want to upload files for storage to Server No. 2
that is accessible only from the Internet. If the file storage was on
server No. 1, I would specify a physical file path (ChosenDirectory)
for storage of the uploaded file but in my case I need to specify a
virtual path like http://server2/folder1/.
I'm trying to use server.mappath to convert the virtual path to the
folder structure on server 2 but get an error - Invalid path for
MapPath 'http://server2/folder1/'. A virtual path is expected. I've
checked the virtual path by pasting into my browser and it is OK and
connects to the remote server No. 2. The sub works fine for physical
paths on the main server No. 1. Please help.
Thanks,
Lou
<%@ Page Language="vb" Explicit="true" Trace="false" Debug="true" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.Net" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SQLClient" %>
<script runat="server">
Sub DoInsert(Source as Object, E as EventArgs) 'call to insert record
'first get the path for the file to be saved
Dim MyPath, MyName as string
Dim ChosenDirectory as string
ChosenDirectory= Server.MapPath ("http://server2/folder1/")
MyPath = Left(ChosenDirectory, Len(ChosenDirectory) - 1) '
Set the path by stripping off the final \
' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
if MyName="" ' The folder is not there & to be created
MkDir(ChosenDirectory) 'Folder created
span2.InnerHtml="A Folder " & ChosenDirectory & " is created
at the Page_Load"
end if
'insert file metadata into sql server
Dim MyConnection As SqlConnection
Dim MyCommand As New SqlCommand
Dim strSQL As String
Dim intRowsAff As Integer
Dim strConnect as string
strConnect=ConfigurationSettings.AppSettings ("strConnect")
lblErrMsg.Text = ""
lblRecsAff.text = ""
MyConnection = New SqlConnection(strConnect) '
MyConnection.Open
Dim UpFile as HttpPostedFile = UP_FILE.PostedFile
Dim sMessage as new StringBuilder()
If UpFile.ContentLength = nothing then
sMessage.Append("<b>* You must pick a file to upload</b>")
Exit Sub
else
End If
Dim strfilename As String
If Not (up_File.PostedFile Is Nothing) Then
Try
Dim postedFile = up_File.PostedFile
strfilename = Path.GetFileName(postedFile.FileName)
Catch ex As Exception
lblRecsAff.text = "Failed uploading file"
End Try
End If
Dim FileLength as Integer = UpFile.ContentLength
Dim FileByteArray(FileLength) as Byte
MyConnection = New SqlConnection(strConnect) '
MyConnection.Open
strSQL = "INSERT INTO tblAttachments (DocumentID, FileName,
ContentType, FileSize, Description, UploadDate,FilePath, FilePathNew )
" & _
" VALUES (@DocumentID, @FileName, @ContentType,
@FileSize, @Description, @UploadDate, @FilePath, @FilePathNew )"
MyCommand = New SqlCommand(strSQL, MyConnection)
MyCommand.Parameters.Add(New SqlParameter("@DocumentID",
SqlDbType.int, 4))
MyCommand.Parameters("@DocumentID").Value =
Session("DocumentID")
MyCommand.Parameters.Add(New SqlParameter("@FileName",
SqlDbType.NVarChar, 255))
MyCommand.Parameters("@FileName").Value = strfilename
MyCommand.Parameters.Add(New SqlParameter("@ContentType",
SqlDbType.NVarChar, 50))
MyCommand.Parameters("@ContentType").Value =
UpFile.ContentType
MyCommand.Parameters.Add(New SqlParameter("@FileSize",
SqlDbType.Int))
MyCommand.Parameters("@FileSize").Value =
UpFile.ContentLength
MyCommand.Parameters.Add(New SqlParameter("@Description",
SqlDbType.NVarChar, 255))
MyCommand.Parameters("@Description").Value =
Server.HtmlEncode(txtDescription.text)
MyCommand.Parameters.Add(New SqlParameter("@UploadDate",
SqlDbType.DateTime))
MyCommand.Parameters("@UploadDate").Value = Now()
MyCommand.Parameters.Add(New SqlParameter("@FilePath",
SqlDbType.NVarChar, 150)) ' this stores the path from which the file
came
MyCommand.Parameters("@FilePath").Value =
Server.HtmlEncode(UP_FILE.value)
MyCommand.Parameters.Add(New SqlParameter("@FilePathNew",
SqlDbType.NVarChar, 150)) ' this saves the path where the file will be
stored
MyCommand.Parameters("@FilePathNew").Value = MyPath
MyCommand.dispose
Try
intRowsAff = MyCommand.ExecuteNonQuery()
Catch ex As Exception
lblErrMsg.Text = ". A file with this name already exists.
Change file name and try again."
End Try
lblRecsAff.Text = intRowsAff & " file inserted"
MyConnection.Close
txtDescription.visible = false
lblDescription.visible = false
'Upload file to folder structure
' Display properties of the uploaded file
FileName.InnerHtml = UP_FILE.PostedFile.FileName
FileContent.InnerHtml = UP_FILE.PostedFile.ContentType
FileSize.InnerHtml = UP_FILE.PostedFile.ContentLength
UploadDetails.visible = True
' recover only the file name from its fully qualified path at client
' Dim strFileName as string
strFileName = UP_FILE.PostedFile.FileName
Dim c as string = System.IO.Path.GetFileName(strFileName) ' only
the attached file name not its path
' Save uploaded file to server at the chosen directory
Try
UP_FILE.PostedFile.SaveAs(ChosenDirectory + c)
catch Exp as exception
span1.InnerHtml = "An Error occured. Please check the
attached file"
UploadDetails.visible = false
span2.visible=false
End Try
span1.visible = true
span2.visible = true
Panel1.visible =false
btnSaveNew.enabled= false
Datagrid1.enabled=true
AddNew.enabled = true
BindGrid() ' refresh the datagrid
End Sub