画像のアップロード - restinpiece @ ウィキ

画像のアップロード

概要

ページの説明
マイクロソフトの解説
これで文化的で最低限のことはできます。

以下、拡張子チェックをつけたサンプル。

Dim MyExtension
 
'ファイルの拡張子を取得
MyExtension = System.IO.Path.GetExtension(FileUpload1.FileName).ToUpper
 
'添付ファイル（画像）名の拡張子を調べて Case の場合：処理を継続↓　（Case でない場合：Case Else の所へジャンプ）
Select Case System.IO.Path.GetExtension(MyExtension)
	Case ".BMP", ".DIB", ".JPG", ".JPEG", ".GIF", ".PNG", ".PDF", ".TIF" ' ←アップロード可能な拡張子（ファイル）はここで指定
		'画像を保存
		FileUpload1.SaveAs("c:\" + FileUpload1.FileName)
		Response.Write("画像を保存しました")
	Case Else   ' 拡張子が、Case に該当しない時の処理
		Response.Write("画像を選択してください")
	Return
End Select