バック購入

今日は先週買って裾直しをお願いしていたボトムスを受け取りに新宿に。

ついでに普段自分が使用しているバックは買ってから
5年ぐらい経っているので、いい加減買い換えようと色々と見て回ってみた。

久しぶりに新宿のマルイメンに行ってみて
気に入ったボディバック購入。

買ったのはDEMAという店のこんな皮バック。

ほとんどの商品を試させてもらった感がある…
感謝感謝。

そろそろ秋物も買いに行きたいけれど、
その前に仕事着のワイシャツも買っておかないと。

VBScriptのエラー処理

最近、業務でVBScriptを使用しているのだが、
普段使用しているC#やVB.NETと比べて機能が少ない。

特に今悩まされているのが、エラーハンドリング。
今までは集約例外処理でキャッチしていた部分を、
VBScriptだけで実装するのは難しい。

普通はtry&catchやgoto error みたいな方法で
実現できていたのだが、その方法が見当たらない。

なので確実にキャッチすることができない
→finally処理ができない
→ファイルが開かれっぱなし、オブジェクトが残りっぱなし、
　プロセスが残りっぱなし。
といったことがありうる。

今自分が思いついているのはこの程度のこと（動作未確認）。
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

On Error Resume Next

'例外が起こりそうな処理
If CheckError Then
WScript.Quit()
End If
'例外が起こっていないときは、以降の処理を継続

'####################################
'# エラーが発生しているかを確認し、
'# 終了前の必須処理を行います
'####################################
Function CheckError()
CheckError = False

If Err.Numner <> 0 Then
'オブジェクトの開放などの
'finally句で行いたい処理を実装
CheckError = True
End If
End Function

↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑


でもこれだと、自分が想定していない例外が発生したときに
エラーハンドリングできないという欠点がある。
これも克服できる良い方法はないものか。
もう少し調べたり、考えたりしよう。

初投稿

今まで利用していたWebサービスをなるべく、Googleに集約しよう
プロジェクト進行中なので、こちらにもBlogを作成してみた。
こっちには何を書いていこうかねー