vbsで本日の日付のフォルダを生成する

VBSによる日付のフォルダを生成するスクリプト。

[VB]
‘=================================================
‘ 本日の日付のフォルダ生成
‘=================================================

‘ 変数を宣言
Dim str_path

‘ ファイルストリーム・オブジェクト生成
Set objFS = CreateObject(“Scripting.FileSystemObject”)

‘ フォルダを生成する
str_path = objFS.CreateFolder(nowstring())

‘————————————————-
‘日時をyyMMdd形式にする
‘————————————————-
Function nowstring()
Dim nows
nows = Right(“0000” & Year(Now()) , 2 ) & Right(“0” & Month(Now()) , 2) & Right(“0” & Day(Now()) , 2)
nowstring = nows
End Function
‘————————————————-
[/VB]

[参照] Mako » VBScript 現在日付をyyyyMMddhhmmss形式にする

★参照リンクめいか～ β1｜ウェブアプリ研究
　http://web-systems.itland.ezic.info/sample-system/reference-link-maker/