ciao ti posto un piccolo script che puoi riadattare per il tuo problema
codice:
<%
Dim dir
dir = "/archivio/"
W(ShowFolderList(dir))
Function W(msg)
response.write (msg&"<br/>")
end function
Function ShowFolderList(folderspec)
Dim fso, folder, files, File, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(Server.MapPath(dir))
Set sf = folder.SubFolders
For Each f1 in sf
s = s & f1.name & " qui creare la directory anno 2018"
s = s & "<BR>"
Next
ShowFolderList = s
End Function
%>
per creare il nuovo folder devi verificare se già esiste e se non esiste lo puoi crearecon questa istruzione naturalmente devi riadattarla al tuo scopo
codice:
fso.CreateFolder(strPath & strNewFolder)
per verificare se la cartella esiste
codice:
If (fso.FolderExists(fldr)) then...