'この呼び出しは Web フォ`ム デザイナで需要です。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents FileUploadForm As System.Web.UI.WebControls.Panel
Protected WithEvents FileName As System.Web.UI.WebControls.Label
Protected WithEvents FileLength As System.Web.UI.WebControls.Label
Protected WithEvents FileType As System.Web.UI.WebControls.Label
Protected WithEvents AnswerMsg As System.Web.UI.WebControls.Panel
Protected WithEvents loFile As System.Web.UI.HtmlControls.HtmlInputFile
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents dir As System.Web.UI.WebControls.TextBox
'メモ : 次のプレ`スホルダ宣言は Web フォ`ム デザイナで需要です。
'削除および移婴筏胜い扦坤丹ぁ
Private designerPlaceholderDeclaration As System.Object
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 Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' ペ`ジを早期化するユ`ザ` コ`ドをここに啡毪筏蓼埂
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lstrFileName As String
Dim lstrFileNamePath As String
Dim lstrFileFolder As String
If dir.Text <> "" Then '假如上髂垮h榭眨褪褂" c:\ "作缺省上髂垮h
lstrFileFolder = dir.Text '@得上鞯椒掌鞯哪垮h名Q
Else
lstrFileFolder = "c:\"
End If
Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
Dim postedFile As System.Web.HttpPostedFile = files(0)