<%
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) T……
[/Quote]
GOOD
<%
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
%>