忍者ブログ

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

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

#Region "CSVをダウンロード"
'=====================================================
'CSVをダウンロード
'-----------------------------------------------------
'【引 数】なし
'【戻り値】なし
'【注意】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
PR
【2006/03/07 12:23 】
CATEGORY [ ASP.NET ] COMMENT [ 0 ] TRACKBACK [ ]
pagetop ∴
<<CSVファイルの読込み | HOME | CSVファイルの作成>>
コメント
コメント投稿














trackback
トラックバックURL

FRONT| HOME |NEXT

忍者ブログ [PR]