怎么创建以当前年份为名字的文件夹和表

如何创建以当前年份为名字的文件夹和表？
我想创建一个以当前年份为名字的文件夹和以当前月份为名字的DBF表，以这个月为例，创建一个名为“2007”的文件夹和名为“05.dbf”的表，如何实现？

------解决方案--------------------
rr=ALLTRIM(STR(YEAR(DATE())))
rr1=RIGHT( '0 '+ALLTRIM(STR(month(DATE()))),2)
MD &rr
CD &rr
USE tt
COPY TO &rr1
------解决方案--------------------
lcDirName=TRANSFORM(YEAR(DATE()))
MD '&lcDirName '


lcMonthTableName=PADL(TRANSFORM(MONTH(DATE())),2, '0 ')
CREATE TABLE (lcMonthTableName) (字段1 I)