asp.net上传文件小结

 
＜input id = " loFile " type = " file " runat = " server " ＞
＜form method = " post " enctype =" multipart/form-data " runat = " server "＞
＜/form ＞
1.获得上传文件的名称：（关键是PostedFile类的应用）
使用Path类中的GetFileName方法，具体如下：
lstrFileName = loFile.PostedFile.FileName
　　' 注： loFile.PostedFile.FileName 返回的是通过文件对话框选择的文件名，
　　这之中包含了文件的目录信息
lstrFileName = Path.GetFileName ( lstrFileName )
　　' 去掉目录信息，返回文件名称
（2）. 判断上传目录是否存在，不存在就建立
　　建立目录要使用到Directory类中的 CreateDirectory 方法，判断目录是否存在要用到 Directory 类中的Exists方法。具体如下：
If ( not Directory.Exists( lstrFileFolder ) ) Then
　Directory.CreateDirectory ( lstrFileFolder )
End If
　' 注：lstrFileFolder是用户填入的目录名称，或者是缺省的目录名称
　　＜四＞．上传选定文件到服务器上
　　在前面工作都已经完成以后，就可以上传文件了，上传文件相对比较简单，就用下面2行语句就可以完成上传工作。
lstrFileNamePath = lstrFileFolder & lstrFileName
　' 得到上传目录及文件名称
loFile.PostedFile.SaveAs ( lstrFileNamePath )
　'上传文件到服务器
　　＜五＞．获得并显示上传文件的属性
FileName.Text = lstrFileName
　' 获得文件名称
FileType.Text = loFile.PostedFile.ContentType
　'获得文件类型
FileLength.Text = cStr ( loFile.PostedFile.ContentLength )
　'获得文件长度
FileUploadForm.visible = false
AnswerMsg.visible = true
　'显示上传文件属性
＜% @ Import Namespace=" System.IO " %＞
＜html ＞
＜BODY ＞
＜SCRIPT LANGUAGE = "VB" RUNAT = "SERVER" ＞
　Sub UploadFile_Clicked ( Sender as Object, e as EventArgs )
　　Dim lstrFileName as string
　　Dim lstrFileNamePath as string
　　Dim lstrFileFolder as string
　　' 如果上传目录为空，就使用" c:\ "作为缺省上传目录
　　' 获得上传到服务器的目录名称
　　if dir.value ＜＞ "" then
　　　lstrFileFolder = dir.value
　　else
　　　lstrFileFolder = "c:\"
　　end if
　　' 获得文件名称
　　lstrFileName = loFile.PostedFile.FileName