デジフォト庫を作成するVBS

'いつもの必殺スクリプトです ^^;　このまま、拡張子 vbs ファイルにコピぺして、適当なフォルダー内でクリックしてみてくだいませ。

'======================================
Dim fso, f,txt1,mDat
mDat = Now
xDat = Rep(":", ",",mDat)
wDat = Rep("/", ",",xDat)
tDat = Left(wDat,4)
Inp = InputBox("西暦が正しければＯＫボタンでリネームを開始します。!","☆ _DigiPhoto庫つくりまーす!!",tDat)

Set fso = CreateObject("Scripting.FileSystemObject")
txt1 = Inp & "_DigiPhoto庫"
Set f = fso.CreateFolder(txt1)

Set f = fso.CreateFolder("./"+ txt1 +"/1_January")
Set f = fso.CreateFolder("./"+ txt1 +"/2_February")
Set f = fso.CreateFolder("./"+ txt1 +"/3_March")
Set f = fso.CreateFolder("./"+ txt1 +"/4_April")
Set f = fso.CreateFolder("./"+ txt1 +"/5_May")
Set f = fso.CreateFolder("./"+ txt1 +"/6_June")
Set f = fso.CreateFolder("./"+ txt1 +"/7_July")
Set f = fso.CreateFolder("./"+ txt1 +"/8_August")
Set f = fso.CreateFolder("./"+ txt1 +"/9_September")
Set f = fso.CreateFolder("./"+ txt1 +"/10_October")
Set f = fso.CreateFolder("./"+ txt1 +"/11_November")
Set f = fso.CreateFolder("./"+ txt1 +"/12_December")

'CreateFolderDemo = f.Path
WScript.Echo f.Path & vbCrLf & vbCrLf & "　＼(◎o◎)／！正常に完了したものと思います。!!"

Function Rep(patrn, St,stx)
Dim A
Set A = New RegExp
A.Pattern = patrn
A.IgnoreCase = True
A.Global = True
Set C = A.Execute(stx)
For Each B in C
Rep = A.Replace(stx, St)
Next
End Function
'======================================

'◇ 使用上のご注意　ソース改変、再配布、自由ですが、全て自己責任で行ってください。
' (なお、再配布の際は、URLや署名等も変更しておいてください。)

'◇ このスクリプトは、Windows XP で動作確認していますが、一切の保障をしかねますので、

'◇ ソース内容を確認の上、安全とご判断出来た場合のみ、使用するようにしてくださいませ。

'◇ クリックすると、同フォルダ内に各月フォルダを一括して作成してくれます。

'初期配布元 http://blog.so-net.ne.jp/petamun/
'管理人 グッピー
'最終更新日 0:03 2007/01/27