2008年5月

F1モナコGP決勝で新モナコウィナー誕生

の記事の　モナコ　が　モコナ　に見えた(汗)

1.
スクリプトの置き場所を決める。
今回はC:\Documents and Settings\user にしてみる

2.
ファイルを2つ作る。
・CheckLastModified.bat
・CheckLastModified.vbs

3.
それぞれのファイルの中は次のとおり。

CheckLastModified.bat
--ここから--
@echo off
cscript /nologo "C:\Documents and Settings\user\CheckLastModified.vbs"
PAUSE
--ここまで--

CheckLastModified.bat
--ここから--
'監視したいフォルダを指定`
Directory = "C:\Documents and Settings\"
'何時間以内の更新情報を取得するか指定(単位：h)
df = 24
'ここから下は変更の必要なし
dtNow = Now()
Set sss = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Directory)
wscript.echo ""
wscript.echo f.Path & " 内 " df & "時間以内に更新されたファイルとディレクトリ"
wscript.echo ""
wscript.echo " 現在時刻：" & dtNow
wscript.echo ""
ShowModified(f)
Sub ShowModified(f)
For Each objFile In f.Files
If DateDiff("h",objFile.DateLastModified,dtNow) < df Then
wscript.echo " " & objFile.DateLastModified & " " & f.Path & "\" & objFile.Name
End If
Next
For Each objSubFolder In f.SubFolders
ShowModified(objSubFolder)
Next
End Sub
wscript.echo ""
--ここまで--

4.
使い方
CheckLastModified.bat をダブルクリックすると、プロンプトが開いてファイルの一覧が表示される。
サブフォルダを大量に含む場合は少し待たされるはず。Cドライブを直接指定したりすると悲惨なことになりそう。

5.
応用
DateDiff("h",objFile.DateLastModified,dtNow)
が、現在時刻との差を求める関数なので、
df = 15 としたうえで DateDiff("n",objFile.DateLastModified,dtNow) とすれば
15分以内に更新されたファイルが表示される。
同様にdf = 3 としたうえで DateDiff("d",objFile.DateLastModified,dtNow) で
3日以内に更新されたファイルが表示される。
ログフォルダやsamba共有フォルダの監視あたりで使えそう？
当然ながら、sambaを提供しているサーバーとローカルマシンの時刻が、大幅にずれている場合は結果に影響が出る。

CheckLastModified.batへのショートカットをデスクトップに置くか、タスクなどで定期的に実行させることで手軽に監視できる。

CheckLastModified.batを
cscript /nologo "C:\Documents and Settings\user\CheckLastModified.vbs" > "D:\web\root\status.txt"
のようにリダイレクトすると、結果をファイルに書き出すことができる。
htmlタグを埋め込んでWWWサーバーに置いてみたり、メールで定期的に送信したりするのもよいかと。

6.
発展
監視フォルダおよび何時間、の部分を引数にすることで汎用化できるはず。

7.
注意
CheckLastModified.vbs自体を実行してしまうと1行につき1回ずつダイアログボックスで表示される。
とてもウザいのでやらないように。

プログラム修正

ルート3
if i == j then degree = 1;

generate_matrix and compute.

8th group -> goto 0

http://docs.info.apple.com/article.html?artnum=93698-ja

アンインストール方法の説明なのに、最後に最新版をインストールさせている件。

手を抜いてコンビニ弁当

暑かったから、そうめん持ってレジに向かう。

店員：「温めますか？」

私：「はいぃ？」

店員：「温めますか？」

私：「・・・。」

店員：「あっ・・・」

平謝りされました(苦笑)。

今日は仕事をお持ち帰りぃ～～しちゃったので、ニコ動見ながら仕事しまっす。

右上に作ってみました。

中身はただのPerl。

あんまりテストしていないので、変な変数をセットしたり長文を入れたりするとエラーになる、かも。

たいしたことはしていないから、そうそうコケないとは思うけど。

本当は値のチェックとかメアド形式のチェックとかも組み込めるけど、これしきのものを重たくしても仕方ないから割愛。

ToDo
Aルートのプログラム書き換え。
実習費用振込。

20日17:30 - 歯医者

トミーが登場しただけで場内に笑いがこみ上げるのは何故？ｗ

皆トミー好きすぎｗ

「嘘だっ！」の演出はイマイチ。

こんなのも

何度貼っても行方不明

不思議～