用当前年月日命名文件夹名称

每次备份都需要手工创建一个用当前年月日命名的文件夹，再备份文件到这个文件夹中
所以可以通过以下简单的脚步来操作。
以下所有脚本经本人调试，都可以在secureCRT中执行。

#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
'版本备份
Sub Main
    '创建备份文件夹名称
    dim bckName
    dim strYear,strMonth,strDay
    strYear=year(date)
    if month(date) <10 then
        strMonth="0" & month(date)
    else
        strMonth=month(date)
    end if