Below is the changes I have made. It works, but the error message is not
displayed. It only display '*' if wrong file type is selected.
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server" >
Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
LblError.Visible = False
Dim strUploadsDirectoryPath As String = Session("FileUploadPath")
Dim strPOYear As String = Session("POYear")
Dim strLatestGenPONum As String = Session("LatestGeneratedPONum")
Dim strCompleteFilepath As String = filUpload.PostedFile.FileName
Dim strActualFileName As String = System.IO.Path.GetFileName(strCompleteFilepath)
Dim myFileinfo As New FileInfo(strUploadsDirectoryPath &
strPOYear & "\" & strLatestGenPONum & "\" &
strActualFileName)
'Response.Write("PATH : " & strUploadsDirectoryPath &
strPOYear & "\" & strLatestGenPONum & "\" &
strActualFileName)
LblError.Text = ""
If strActualFileName = "" Then
LblError.Visible = True
LblError.Text = "Please enter a valid Resource or Browse to the location"
Session("FileUploadStatus") = "False"
Else
Try
If myFileinfo.Exists = False Then
Dim fso, f
fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(strUploadsDirectoryPath + strPOYear + "\" + strLatestGenPONum) = false Then
f = fso.CreateFolder(strUploadsDirectoryPath + strPOYear + "\" + strLatestGenPONum)
End If
filUpload.PostedFile.SaveAs(strUploadsDirectoryPath + strPOYear + "\" + strLatestGenPONum + "\" + strActualFileName)
LblError.Visible = True
LblError.Text = "File physically Uploaded. Please remember to - confirm your attachment..."
Session("FileUploadStatus") = "True"
Session("DocumentName") = strActualFileName
Else
LblError.Visible = True
'LblError.Text = "Uploaded file already exists"
LblError.Text = "file already exists..Overwriting"
'Session("FileUploadStatus") = "False"
'Session("DocumentName") = ""
Session("FileUploadStatus") = "True"
Session("DocumentName") = strActualFileName
End If
Catch ex As Exception
LblError.Visible = True
LblError.Text = ex.ToString()
Session("FileUploadStatus") = "False"
End Try
End If
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Upload File</title>
<style runat="server">
.buttonStyleNew{
border:2px solid #333333;
font-size:12px;
color:#FFFFFF;
background-color:#656565;
font-family:Arial, Helvetica, sans-serif;
}
.UploadNew{
border:2px solid #333333;
font-size:12px;
color:#FFFFFF;
font-family:Arial, Helvetica, sans-serif;
}
</style>
</head>
<body>
<form id="FrmUpload" runat="server" method="post">
<div>
<asp:FileUpload ID="filUpload" runat="server" CssClass="UploadNew"
Width="364px" ForeColor="Black"
/> <asp:Button
ID="btnUpload" runat="server" Text="Upload File"
CssClass="buttonStyleNew"/><br /> <asp:Label
runat="server" ID="LblError" Visible="False" ForeColor="red"
Font-Size="small"
Font-Bold="false"></asp:Label><asp:RegularExpressionValidator
ID="RegularExpressionValidator1" runat="server" ErrorMessage="Only .doc ,
.docx or .txt files are allowed."
ValidationExpression="^(([a-zA-Z]:)|(\\{2}\w+)\$?)(\\(\w[\w].*))+
(.doc|.docx|.txt|.pdf|.xls|.xlsx|.ppt|.zip|.jpg|.png|.tiff|.PDF|.DOC|.DOCX|.JPG|.JPEG|.jpeg|.XLS|.XLSX|.PPT|.ZIP|.RAR|.rar|.TIFF)$"
ControlToValidate="filUpload">*</asp:RegularExpressionValidator>
</div>
</form>
</body>
</html>