VBS

2014年8月7日 / 最終更新日時 : 2014年8月7日マサ VBS

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

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

'=================================================
' 本日の日付のフォルダ生成
'=================================================

' 変数を宣言
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
'-------------------------------------------------