改了下VS里原来的FileUpload控件的SaveAs方法

更新了下VS里原来的FileUpload控件的SaveAs方法，把上传文件路井分为根和下一级，通过页面传递ID自动创建对应名称的子文件夹，如果主文件夹不存在，也自动创建。
明天到了公司再把按键,和ListBox加进去做个组合控件，只要页面或后台输入主路近，和子路进，直接点提交就完成，下面LixtBox显示当前文件夹下共有多少文件。后台cs(vb)文件不用再写任何代码.

Public Class RaboFileUpLoad
Inherits FileUpload
#Region "Properties"
Private m_BasePath As String
Private m_HttpBasePath As String
Private m_PlaceFiles As String
Private m_PlaceFilesDownload As String

Public Property BasePath() As String
Get
BasePath = m_BasePath
End Get
Set(ByVal value As String)
m_BasePath = value
End Set
End Property

Public Property PlaceFiles() As String '' sub folder path properties
Get
PlaceFiles = m_PlaceFiles
End Get
Set(ByVal value As String)
m_PlaceFiles = value
End Set
End Property
#End Region

#Region "Methods"
Public Overloads Sub SaveAs()
FolderExists(Me.BasePath)
FolderExists(Me.BasePath & Me.PlaceFiles)
If Me.FileName IsNot Nothing AndAlso Me.FileName.ToString <> "" Then
Me.SaveAs(Me.BasePath & Me.PlaceFiles & Me.FileName)
Me.Dispose()
End If
End Sub

Private Sub FolderExists(ByVal FolderPath As String)
Dim folder As New System.IO.DirectoryInfo(FolderPath)
If Not folder.Exists() Then
folder.Create()
End If
End Sub
#End Region

End Class