求文件名的生成
小弟想求文件名的生成：

格式： 201206141216.mp3
201206141316.mp3
201206141416.mp3
201206141516.mp3
201206141616.mp3
如： 201206141216 就是日期。


[解决办法]
Format(Now, "yyyymmddHHnn")
[解决办法]
If Mid(CStr(Date), 9, 2) < 10 Then

MsgBox Mid(CStr(Date), 1, 4) + Mid(CStr(Date), 6, 2) + "0" + Mid(CStr(Date), 9, 2)
Else
MsgBox Mid(CStr(Date), 1, 4) + Mid(CStr(Date), 6, 2) + "0" + Mid(CStr(Date), 9, 2)
End If
在注意一下：Mid(CStr(Date), 6, 2)大于等于10或小于10的情况