Allora ho provato a fare come mi hai detto ma il risultato non cambia.
Proviamo a fare un pò d'ordine, altrimenti è un casino anche per voi cercare di aiutarmi.
Questo è il codice:
codice:
<%
  Dim fso, folder, files, File
  Set fso = CreateObject("Scripting.FileSystemObject")


  dir = "/public/Ricevute/"
  'dirLocal = "c:\Ricevute al "
  bckdir = dir & "Ricevute al "&Replace(FormatDateTime(Date(),2),"/","-")
  'bckdirLocal = dirLocal &Replace(FormatDateTime(Date(),2),"/","-")
  If NOT fso.FolderExists(Server.MapPath(bckdir)) Then
      fso.CreateFolder(Server.MapPath(bckdir))
  else
	  ' Attivo la cartella
	  Set folder = fso.getfolder(Server.MapPath(dir))
	  ' Recupero i files contenuti nella cartella
	  Set files = folder.files
	  ' Ciclo i files
	  For Each file in files
		  fso.CopyFile file.path, Server.MapPath(bckdir & "/" & file.name)
	  Next
		'fso.CopyFolder Server.MapPath(bckdir),"c:\"
  End If
set fso=nothing
%>
In questo modo si crea la cartella con la data del giorno sotto la cartella public\ricevute, ma dentro non ci sono i file pdf, perché?