vbsで日付時間の取得

vbsで、年日付を8桁、時間を6桁で取得するときに便利。

Dim ymdhms
Dim yyyy
Dim mmdd
Dim hhmmss

----- べんりあつめ。-----

yyyy = Year(Now())
mmdd = Right("0" & Month(Now()) , 2) & Right("0" & Day(Now()) , 2)
hhmmss = Right("0" & Hour(Now()) , 2) & Right("0" & Minute(Now()) , 2) & Right("0" & Second(Now()) , 2)
ymdhms = yyyy & mmdd & "_" & hhmmss

MsgBox ymdhms