Buongiorno , lo sò che è già stato scritto tanto a riguardo, ma ho letto e provato tutti i codici e gli esempi che ho trovato ma non ne funziona uno.
Ho questo semplice codice che crea la cartella nel posto giusto ma quando arriva adover copiare tutte le cartelle dalla sorgente non ci copia un bel nulla!!!
codice:
  Set fso = CreateObject("Scripting.FileSystemObject")
  dir = "/public/Ricevute/"
  bckdir = dir&"Al_"&Replace(FormatDateTime(Date(),2),"/","-")&"/"
  If not fso.FolderExists(Server.MapPath(bckdir)) Then
      fso.CreateFolder(Server.MapPath(bckdir))
      fso.CopyFolder Server.MapPath(dir), Server.MapPath(bckdir) 
  else
..........
  end if
response.Write("A"&Server.MapPath(dir)
response.Write("B"&Server.MapPath(bckdir))
I due risultati dei response sono:
1) AD:\inetpub\webs\xxxxxxx\public\Ricevute
2) BD:\inetpub\webs\xxxxxxx\public\Ricevute\Al_07-10-2018
L'errore è questo:
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
/menu.asp, line 189

Ovviamente la linea 189 è quella dove si effettua il copyfolder

Grazie a tutti