2004-03-25

VBScript: DailyMemo

ダブルクリックするとその日の日付けを元にしたファイル名で既定フォルダ(My Documents)にテキストファイルを作り(既存の場合は何もしない)、関連付けに従って開くVBScriptをでっち上げてみる。ToDoメモなんかに使うんだろう、多分。

Dim yy, mm, dd, today
yy = CStr(Year(Now))
yy = Right(yy, 2)
mm = "0" + CStr(Month(Now))
mm = Right(mm, 2)
dd = "0" + CStr(Day(Now))
dd = Right(dd, 2)
today = yy + "-" + mm + "-" + dd

Dim WshShell, FileSys, f
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FileSys  = CreateObject("Scripting.FileSystemObject")
f = WshShell.SpecialFolders("MyDocuments") + "\\" + today + ".txt"

If (FileSys.FileExists(f)) Then
  WshShell.Run(f)
Else
  FileSys.CreateTextFile(f)
  WshShell.Run(f)
End If

Set FileSys  = Nothing
Set WshShell = Nothing

WScript.Quit

暇つぶし。VBScriptにsprintf欲しいな。