嗯！支持！

Imports Microsoft.VisualBasic
Imports Rabo.Services.PortalLibrary
Imports System.Data
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Text
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.Control
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebControl

Public Class RaboFileUpload
    Inherits WebControl
    Implements INamingContainer

    ''' <summary>
    ''' Created 09-07-2008 senyan v1.0
    ''' This is a custom easy-mode file upload control, a link button mixed to simplify your work. 
    ''' How to use:
    ''' 1. Call this control
    ''' 2. Set BasePath and PlaceFiles string in page_load event
    '''    e.g.  Me.RaboFileUpload1.BasePath = "C:\Temp\"    
    '''          Me.RaboFileUpload1.PlaceFiles = "Ticket_33\"
    ''' 3. run page, select a file, and then click upload button
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks> set child control default style, size, layout in CreateChildControls() method</remarks>
#Region "Properties"

    Public Property BasePath() As String
        Get
            Return ViewState("BasePath")
        End Get
        Set(ByVal value As String)
            ViewState("BasePath") = value
        End Set
    End Property

    Public Property PlaceFiles() As String
        Get
            Return ViewState("PlaceFiles")
        End Get
        Set(ByVal value As String)
            ViewState("PlaceFiles") = value
        End Set
    End Property

#End Region

#Region "Methods"
    Protected Overrides Sub CreateChildControls()
        Dim fu As New FileUpload
        Dim bt As New LinkButton
        bt.Text = "Upload"
        Controls.Add(fu)
        Controls.Add(bt)
        AddHandler bt.Click, AddressOf Me.ButtonClicked
    End Sub

    Private Sub ButtonClicked(ByVal sender As Object, ByVal e As EventArgs)
        Dim ChildFileUpload As FileUpload = CType(Me.Controls("0"), FileUpload)
        Me.OnCheck(Me.BasePath, Me.PlaceFiles, ChildFileUpload)
    End Sub

    Private Sub OnCheck(ByVal BasePath As String, ByVal PlaceFiles As String, ByRef ChildFileUpload As FileUpload)
        FolderExists(BasePath)
        FolderExists(BasePath & PlaceFiles)
        If ChildFileUpload.FileName IsNot Nothing AndAlso ChildFileUpload.FileName <> "" Then
            ChildFileUpload.SaveAs(BasePath & PlaceFiles & ChildFileUpload.FileName)
            ChildFileUpload.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