Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click TextBox3.Text = UploadFile.PostedFile.FileName.ToString End Sub
当然会出错了!因为你的FileName是空!!你还没有选文件呢!!!我倒!CSDN
Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files Dim fileName, fileExtension As String Dim strStatus As StringDim strMsg As New System.Text.StringBuilder("上传的文件是:<hr color=red>") Dim iFile As System.Int32 Dim file_size As Integer Dim file_type As String Try '检查文件扩展名字 iFile = 0 Dim postedFile As System.Web.HttpPostedFile = files(iFile) fileName = System.IO.Path.GetFileName(postedFile.FileName) fileName = Date.Now.Year.ToString + Date.Now.Month.ToString + Date.Now.Day.ToString + Date.Now.Hour.ToString + Date.Now.Minute.ToString + Date.Now.Second.ToString + Date.Now.Millisecond.ToString + fileName 'Response.Write(fileName) file_size = postedFile.ContentLength file_type = postedFile.ContentType.ToString() If Not (fileName = String.Empty) Then fileExtension = System.IO.Path.GetExtension(fileName) strMsg.Append("上传的文件类型:" + postedFile.ContentType.ToString() + "<br>") strMsg.Append("客户端文件地址:" + postedFile.FileName + "<br>") strMsg.Append("上传文件的文件名:" + fileName + "<br>") strMsg.Append("上传文件的扩展名:" + fileExtension + "<br><hr>") '可根据扩展名字的不同保存到不同的活页夹 postedFile.SaveAs(System.Web.HttpContext.Current.Request.MapPath("media/") + fileName) End If
[NullReferenceException: 未将对象引用设置到对象的实例。]
kmxl.WebForm1.Button10_Click(Object sender, EventArgs e) +41
System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +57
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +18
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33
System.Web.UI.Page.ProcessRequestMain() +1277
这就是错误的页面!
Response.Write(UploadFile.PostedFile.FileName)显示为空啊!
language="javascript" lang="4554" dir="ltr" title="455454" size="27"> 路径:<INPUT id="name" style="Z-INDEX: 121; LEFT: 128px; POSITION: absolute; TOP: 96px" type="text"
size="20" runat="server"> <INPUT language="vb" style="Z-INDEX: 123; LEFT: 56px; WIDTH: 80px; POSITION: absolute; TOP: 448px; HEIGHT: 24px"以上是定义uploadfile的html代码!
TextBox3.Text = UploadFile.PostedFile.FileName.ToString End Sub
Dim fileName, fileExtension As String
Dim strStatus As StringDim strMsg As New System.Text.StringBuilder("上传的文件是:<hr color=red>")
Dim iFile As System.Int32
Dim file_size As Integer
Dim file_type As String
Try
'检查文件扩展名字
iFile = 0
Dim postedFile As System.Web.HttpPostedFile = files(iFile) fileName = System.IO.Path.GetFileName(postedFile.FileName)
fileName = Date.Now.Year.ToString + Date.Now.Month.ToString + Date.Now.Day.ToString + Date.Now.Hour.ToString + Date.Now.Minute.ToString + Date.Now.Second.ToString + Date.Now.Millisecond.ToString + fileName
'Response.Write(fileName)
file_size = postedFile.ContentLength
file_type = postedFile.ContentType.ToString()
If Not (fileName = String.Empty) Then
fileExtension = System.IO.Path.GetExtension(fileName)
strMsg.Append("上传的文件类型:" + postedFile.ContentType.ToString() + "<br>")
strMsg.Append("客户端文件地址:" + postedFile.FileName + "<br>")
strMsg.Append("上传文件的文件名:" + fileName + "<br>")
strMsg.Append("上传文件的扩展名:" + fileExtension + "<br><hr>")
'可根据扩展名字的不同保存到不同的活页夹
postedFile.SaveAs(System.Web.HttpContext.Current.Request.MapPath("media/") + fileName)
End If