System.UnauthorizedAccessException: Access to the path "" is denied


New member
Aug 12, 2021
Programming Experience
I have problem to open PDF files stored at a folder in different server. Would like to know is it possible to open file from different server? The folder at the other server already being shared with the permissions required but still not able to open the file. I am able to get into the folder and open the file using Windows Explorer at the program server.

Thank you.
Sorry, here is the coding.

This is to get to the path to get the file name

Private Sub enablePanel(ByVal blnStatus As Boolean, ByVal path As String)

PanelLink.Visible = True

Dim filename As String = ""
Dim FILETYPE As String = ""
Dim filePath As String = ""
Dim strHTMLlink As String = "<P align=""left""><ul>"
Dim count As Integer = 0

Dim userName As String = System.Configuration.ConfigurationManager.AppSettings("DataServerID")
Dim password As String = System.Configuration.ConfigurationManager.AppSettings("DataServerPW")
Dim domain As String = System.Configuration.ConfigurationManager.AppSettings("DataDomain")

Dim d As DirectoryInfo = New DirectoryInfo(path)
Dim tokenHandle As New IntPtr(0)


If LogonUser(userName, domain, password, 9, 0, tokenHandle) Then

Dim newId As New WindowsIdentity(tokenHandle)
Using impersonatedUser As WindowsImpersonationContext = newId.Impersonate()
'perform impersonated commands

If Not Directory.Exists(path) Then

lblError.Visible = True
lblError.Text = "Attachment not found, please contact EDGENTA IT support."
Exit Sub


For Each File As FileInfo In d.GetFiles("*.pdf")
strHTMLlink = strHTMLlink & "<li><a href=""FileOpen.aspx?fileName=" & File.Name & """>" & File.Name & "</a><br><br></li>"
count = count + 1
strFilename = File.Name

End If

End Using



lblError.Text = "Logon failed"

End If

Catch ex As Exception

lblError.Text = ex.Message

End Try

If count = 1 Then

If strPO_num <> "" Then
strFolderPath = path
ElseIf strGRN_num <> "" Then
strFolderPath = path
ElseIf strRRNum <> "" Then
strFolderPath = path
End If


Exit Sub

ElseIf count = 0 Then
lblError.Visible = True
lblError.Text = d.FullName '"Attachment not found, please contact EDGENTA IT support."
End If

strHTMLlink = strHTMLlink & "</ul></P>"
Label1.Text = strHTMLlink

If strPO_num <> "" Then
Session("FilePath") = path
ElseIf strGRN_num <> "" Then
Session("FilePath") = path
ElseIf strRRNum <> "" Then
Session("FilePath") = path

End If

End Sub

This is to open the file

Private Sub showFile()

Dim username As String = ConfigurationManager.AppSettings("DataServerID")
Dim UserPassword As String = ConfigurationManager.AppSettings("DataServerPW")
Dim strFileExt As String
Dim FilePath As String = strFolderPath & strFilename

strFileExt = UCase(getextension(strFilename))
Response.AddHeader("Content-disposition", "inline;filename=" & strFilename)
Response.ContentType = getMimeType(strFileExt)

End Sub

The error indicated at the yellow highlighted line.