28,408
社区成员
发帖
与我相关
我的任务
分享
<%
d = Now()
y = Year(Now)
m = Right("0" & Month(Now), 2)
Set fso = CreateObject("Scripting.FileSystemObject")
dir = "c:\" & y & m & "\"
If Not fso.FolderExists(dir) Then
fso.CreateFolder dir
End If
Set fso = Nothing
%>