Just do this simply :
<pre lang="vb">If (Not File1.PostedFile Is Nothing) _
And (File1.PostedFile.ContentLength > 0) Then
'determine file name
Dim sFileName As String = _
System.IO.Path.GetFileName(File1.PostedFile.FileName)
Try
If File1.PostedFile.ContentLength <= lMaxFileSize Then
'save file on disk
File1.PostedFile.SaveAs(sFileDir + sFileName)
lblMessage.Visible = True
lblMessage.Text = "File: " + sFileDir + sFileName + _
" Uploaded Successfully"
Else 'reject file
lblMessage.Visible = True
lblMessage.Text = "File Size if Over the Limit of " + _
lMaxFileSize
End If
Catch exc As Exception 'in case of an error
lblMessage.Visible = True
lblMessage.Text = "An Error Occured. Please Try Again!"
DeleteFile(sFileDir + sFileName)
End Try
Else
lblMessage.Visible = True
lblMessage.Text = "Nothing to upload. Please Try Again!"
End If
Well, File1 is some control that handle file upload or open. Find it.