'ファイル名のエンコード Dim strEncodeName As String strEncodeName = System.Web.HttpUtility.UrlEncode(ObjName.Text)
'HTTPヘッダー ファイル名の組み立て Dim objHeaderFileName As New StringBuilder objHeaderFileName.Append("attachment; filename=") objHeaderFileName.Append(strEncodeName)
'ダウンロードファイルパスの組み立て Dim objFilePath As New StringBuilder objFilePath.Append(MyBase.CurrentDir) 'カレントディレクトリ objFilePath.Append(OPE_DIR_MARK) 'ディレクトリ区切り objFilePath.Append(objFileName.ToString) 'ファイル名