Ciao a tutti, oggi ho un nuovo quesito per voi, e cioè: perchè mi dà errore path not found quando eseguo questa operazione?

codice:
  Dim fso, folder, files, File
  Set fso = CreateObject("Scripting.FileSystemObject")


  dir = "/public/Ricevute/"
  bckdir = dir & "Ricevute al "&Replace(FormatDateTime(Date(),2),"/","-")
  If not fso.FolderExists(Server.MapPath(bckdir)) Then
      fso.CreateFolder(Server.MapPath(bckdir))
	  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
  else
	  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
  End If


' Creo un'istanza dell'oggetto FileSystemObject
Set fs2 = Server.CreateObject("Scripting.FileSystemObject")


' Copio la cartella dal mio sito nella cartella di backup locale
fs2.CopyFolder Server.MapPath(bckdir),"c:\"
Se lo eseguo in locle funziona, ma se lo faccio funzionare da web allora ecco che salta fuori l'errore.
Grazie