日付フォルダを作成するVBScript

作成されるフォルダ1個

2021_1104_1326

 

ソースコード

Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

'NumStart = InputBox("作成するフォルダの最初の数字(1~31の間)を入力してください","数値の入力") 
'NumEnd = InputBox("作成するフォルダの最後の数字(1~31の間)を入力してください","数値の入力") 

'エラー処理 NumEndの方が少ない数値の場合
'If CInt(NumStart) > CInt(NumEnd) Then
'    MsgBox ("最後の数値の方が始めの数値より少ないです。")
'    WScript.Quit
'End If

'set 
If Month(Now) < 10 Then
	MonthVal = "0" & Month(Now)
Else
	MonthVal = Month(Now)
End If

'set Day
If Day(Now) < 10 Then
	DayVal = "0" & Day(Now)
Else
	DayVal = Day(Now)
End If

'set hour
If Hour(Now) < 10 Then
	HourVal = "0" & Hour(Now)
Else
	HourVal = Hour(Now)
End If

'set minute
If Minute(Now) < 10 Then
	MinVal = "0" & Minute(Now)
Else
	MinVal = Minute(Now)
End If

'set second
If Second(Now) < 10 Then
	SecVal = "0" & Second(Now)
Else
	SecVal = Second(Now)
End If

'Msgbox HourVal : WScript.Quit 'for debug

'make filder
objFSO.CreateFolder Year(Now) & "_" & MonthVal & DayVal & "_" & HourVal & MinVal '& SecVal

Set objFSO = Nothing

WScript.Quit

 

おすすめの記事