Creazione di sottocartelle

[fullavia]

ciao ti posto un piccolo script che puoi riadattare per il tuo problema

<%
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

fso.CreateFolder(strPath & strNewFolder)

per verificare se la cartella esiste

If (fso.FolderExists(fldr)) then...

Grazie, testato funziona perfettamente