VBScript: Add Leading Zero to Date Function Output

http://sogeeky.blogspot.co.il/2006/08/vbscript-add-leading-zero-to-date.html

Summary:

strDate = DatePart(“yyyy”,Date) _
        & Right(“0” & DatePart(“m”,Date), 2) _
        & Right(“0” & DatePart(“d”,Date), 2)