任意のディレクトリ以下のファイルを一覧にしたく、VBS(Visual Basic Script)ファイルを作成した。これが手前味噌ながら結構便利で、仕事で頻繁に利用している。説明や使い方は抜きにして、ひとまず仕事場からメモ、、したものを帰宅してから投稿。

Set objFs = CreateObject("Scripting.FileSystemObject")
inpath=InputBox("", "FileList", "C:\")
outpath=InputBox("", "FileList", "C:\filelist.txt")
If inpath<>"" And outpath<>"" Then
Set objText = objFs.CreateTextFile(outpath)
cnt = count(inpath)
objText.Close
Msgbox("完了しました")
End If
Function count(directory)
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(directory)
For Each objFile In objFolder.Files
objText.Write(objFile.ParentFolder & _
vbTab & objFile.Name & vbTab & _
objFile.DateLastModified & vbCRLF)
NEXT
For Each objFC In objFolder.SubFolders
cnt = cnt & count(objFC)
NEXT
count = cnt
End Function

レジで代金を支払う際、「いかに財布の中の小銭を減らせるか」にこだわり、日々邁進している。私は決して暗算が得意な方ではない（むしろ苦手中の苦手だ）。それでも、あの店員との短いやり取りの時間の中で、自分の財布にある各コインの枚数と、提示された金額を元に、素早く華麗な支払いを目指すものだ。
提示された代金に対し、私があたかも財布のあるコインを全部出したかのような支払い方をする。「えっ？」という表情が隠せない店員。しかし面倒そうに、レジに受領金額を入力すると、お釣りが「555-」と表示され、店員の表情が戸惑いから、ある種の尊敬へと変化する。　これはもう最ッ高ーの瞬間だ。
しかし、ミスってしまうとこの上なく恥ずかしい。支払いに10円玉3枚とか混ぜているのに、勝手に10円玉を幾つか返却されたりして、これ多いですよね、といわんばかりの見くびった表情を見せられた時の「やられた」感とハズカシさといったらない。
先日、駅によくあるドラッグストアのチェーン店で、感冒薬とハンドクリームを購入した。この日の釣銭バトルは、今までにない展開を見せた。
レジにて控える店員は、40代くらいに見える女性だ。薬の調合もできるのだろうか、白衣をまとっている。パッとしない表情と、声の小ささから、随分自信なさ気な様子が伺える。「肉体疲労時の栄養補給云々」か何か飲んだ方がいいんじゃないだろうか、と思うもバトルの前に相手にドーピングされるのもマズい、口に出さず小さく深呼吸をして背筋を伸ばす。
代金の末尾は「76円」である。財布の小銭を数える、6円はない、代わりに1円玉をひとつ手に取る、10円玉は4枚入っていたから、3つを加える。100円玉も１つ追加で必要だ。「131円」これでどうだ。きれいに55円の釣りにならないか。　案の定、店員は固まっている。あ、どっか間違えていたか、そういや薬剤師ってめちゃ理系じゃないか。計算とか私より得意なハズなんだろうな、なんか中途半端な出し方をしてしまったろうか。双方黙り込んでしばらく経つと、店員は自信なさ気な表情をピクリとも動かさず、驚くべき言葉を口にしたのだ。
「～76円なので、あと10円玉４つください」
うひゃー。
それあったら出してるって！　てか、6円出してないんだから80円いるでしょうが！
くそ、負けてないのに後味悪いぜ。

日曜日に同期入社の友人の結婚式に招待いただいた。

終始、友人の人柄の良さを感じるのと同時に、奥さんのあまりの綺麗さに「シンジラレナ～イ」と嫉妬に近い驚きがくすぶり続けた日であった。デジカメで撮った写真が、奥さんソロでカメラ目線のアップが撮影できた。しかも、友人をきちんと「外して」撮影してある。
ムチャクチャステキな結婚式だった。あの様子だと、あのきれいな奥さん、きっと色々こだわって準備したんだろうなと想像できる。

さて、同期の中では、次に誰が続くものか。

結婚もなかなかいいものですよ、「面倒臭い」だの「リスクが大きい」とかあるのかも知れないが、良いなと思うのは、結婚してからお互いどんどん変わっていけるということ。意味もなく固執して「これだけは譲れないもの」リストにあったものを案外簡単に捨てられたり、今まで興味のなかったものに目を向けることができたり（向けざるをえなかったり）。相手に合わせたり、合わせられたりしながら、どんどん自分が変わっていくのが実感できた時、相手を幸せにするとか大義名分はさて置いて、自分にもプラスに働いてるのだと思えて嬉しい。

お冷やと肉とヒルマンが大好きな友人は、同期入社の友人の中でも随一のムードメーカーである。
笑いの絶えない明るい家庭を築いてもらいたいと願うばかり。