日付フォルダを作成する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