ASP.NET(VB)でCSVファイルをコネコネするシリーズ2。
今回は前回作成したCSVファイルをダウンロードしてみる関数を作成。
実際にはもっと色々チェックも入れて画面から選択したファイル名を取得してやらその他諸々ちゃんとしてるんだけどその辺は省略。
指定したCSVファイルを存在チェックしてダウンロードすることができます。

#Region "ＣＳＶをダウンロード"
'=====================================================
'ＣＳＶをダウンロード
'-----------------------------------------------------
'【引　数】なし
'【戻り値】なし
'【注意】Exceptionは共通で指定しておいてね
'=====================================================
Private Sub FileDownLoad()
Try
Dim DirName As String = "C:\CSV\"
Dim FileName As String = "test.csv"
Dim strFullpath As String = DirName & FileName
Dim TypeName As String = Mid(FileName, FileName.Length - 3, 4)

'ファイル存在チェック
If File.Exists(strFullpath) = True Then
'今回は簡易的に拡張子のみでCSVかどうかをチェック
If TypeName <> ".csv" Then
Throw New Exception("処理中エラー：CSVファイルではありません。")
End If

If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 5.5;") > 0 Then
'IE5.5バグ対応
Response.ContentType = "application/octet-stream-dummy"
Else
'IE5.5以外
Response.ContentType = "application/octet-stream"
End If

'ファイルをダウンロード
Response.AddHeader("Content-Disposition", "attachment; filename=" & HttpUtility.UrlEncode(strFullpath))
Response.WriteFile(strFullpath)
Response.End()
End If
Catch ex As Exception
Throw ex
End Try

End Sub
#End Region