用vb.net在实现上传功能的时候 怎么得到TreeView各个接点的路径????很急!在线等!!!!!
打比方说:TreeView上由三个接点(a,b,c)文件夹，我点a或b或c,再点上传,就把我选择的文件传到相应的文件夹,请各位狠人指教;最好详细点,我是新手!!!!!
Imports System
Imports System.Web.HttpPostedFile
Imports System.Web.UI.HtmlControls.HtmlInputFile
Imports System.IO
Imports Microsoft.Web.UI.WebControls
Imports System.Windows.Forms.TreeView
Imports System.Windows.Forms.TreeNode
Imports System.Drawing
Imports System.Windows.Forms
Public Class WebForm5
Inherits System.Web.UI.Page
Protected WithEvents MyTitle As System.Web.UI.WebControls.Label
Protected WithEvents Upload As System.Web.UI.WebControls.Button
Protected WithEvents TreeView1 As System.Windows.Forms.TreeView
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents strStatus As System.Web.UI.WebControls.Label
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
' CODEGEN: このメソッド呼び出しは Web フォーム デザイナで必要です。
' コード エディタを使って変更しないでください。
InitializeComponent()
End Sub
#End Region
'Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyTitle.Text = " <h3> 多文件上传 </h3> "
Upload.Text = "开始上传 "
If (Me.IsPostBack) Then Me.SaveImages()
End Sub
Private Function SaveImages() As System.Boolean
'遍历File表单元素
Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
'状态信息
Dim strMsg As New System.Text.StringBuilder( "上传的文件分别是： <hr color=red> ")
Dim iFile As System.Int32
Dim Path As String
Dim aa As System.Windows.Forms.FolderBrowserDialog
Try
For iFile = 0 To files.Count - 1
'检查文件扩展名字
Dim postedFile As System.Web.HttpPostedFile = files(iFile)
Dim fileName, fileExtension As System.String
fileName = System.IO.Path.GetFileName(postedFile.FileName)
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> ")
'可根据扩展名字的不同保存到不同的文件夹
' Path = TreeView1.ClientID.ToString
Path = aa.SelectedPath.ToString
postedFile.SaveAs(Path + "/ " + fileName)
End If
Next
strStatus.Text = strMsg.ToString()
Return True
Catch Ex As System.Exception
strStatus.Text = Ex.Message
Return False
End Try
End Function
Private Sub Upload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Upload.Click
End Sub
End Class
[解决办法]
打比方说:TreeView上由三个接点(a,b,c)文件夹，我点a或b或c,再点上传,就把我选择的文件传到相应的文件夹,请各位狠人指教;最好详细点,我是新手!!!!!
Imports System
Imports System.Web.HttpPostedFile
Imports System.Web.UI.HtmlControls.HtmlInputFile
Imports System.IO
Imports Microsoft.Web.UI.WebControls
Imports System.Windows.Forms.TreeView
Imports System.Windows.Forms.TreeNode
Imports System.Drawing
Imports System.Windows.Forms
Public Class WebForm5
Inherits System.Web.UI.Page
Protected WithEvents MyTitle As System.Web.UI.WebControls.Label
Protected WithEvents Upload As System.Web.UI.WebControls.Button
Protected WithEvents TreeView1 As System.Windows.Forms.TreeView
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents strStatus As System.Web.UI.WebControls.Label
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
' CODEGEN: このメソッド呼び出しは Web フォーム デザイナで必要です。
' コード エディタを使って変更しないでください。
InitializeComponent()
End Sub
#End Region
'Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyTitle.Text = " <h3> 多文件上传 </h3> "
Upload.Text = "开始上传 "
If (Me.IsPostBack) Then Me.SaveImages()
End Sub
Private Function SaveImages() As System.Boolean
'遍历File表单元素
Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
'状态信息
Dim strMsg As New System.Text.StringBuilder( "上传的文件分别是： <hr color=red> ")
Dim iFile As System.Int32
Dim Path As String
Dim aa As System.Windows.Forms.FolderBrowserDialog
Try
For iFile = 0 To files.Count - 1
'检查文件扩展名字
Dim postedFile As System.Web.HttpPostedFile = files(iFile)
Dim fileName, fileExtension As System.String
fileName = System.IO.Path.GetFileName(postedFile.FileName)
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> ")
'可根据扩展名字的不同保存到不同的文件夹
' Path = TreeView1.ClientID.ToString
Path = aa.SelectedPath.ToString
postedFile.SaveAs(Path + "/ " + fileName)
End If
Next
strStatus.Text = strMsg.ToString()
Return True
Catch Ex As System.Exception
strStatus.Text = Ex.Message
Return False
End Try
End Function
Private Sub Upload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Upload.Click
End Sub
End Class
