COPYFOLDER ERRORE path not found

[devil946]

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

  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

[optime]

innanzitutto direi di fare un po' di pulizia, ricavando le dir fisiche prima

Set fso = CreateObject("Scripting.FileSystemObject")


dir = "/public/Ricevute/"
bckdir = dir & "Al_" & Replace(FormatDateTime(Date(),2),"/","-") & "/"
dir = Server.MapPath(dir)
bckdir = Server.MapPath(bckdir) 
response.Write("<br>dir...: " & dir)
response.Write("<br>bkdir...: & bckdir)


If not fso.FolderExists(bckdir) Then
   response.Write("creo " & bckdir)
   fso.CreateFolder(bckdir)
   response.Write("creata " & bckdir)
   fso.CopyFolder dir, bckdir
   response.Write("copiata " & dir & " su " & bckdir)
else
..........
end if

attento poi ai backslash finali come qui https://docs.microsoft.com/en-us/off...yfolder-method

attento anche alla logica: la cartella dir viene copiata solo se bckdir non c'è...

[devil946]

Grazie Optime ho fatto come mi hai detto e questo è il risultato:

dir...: D:\inetpub\webs\polmarginecopertaeu\public\Ricevut e
bkdir...:\inetpub\webs\polmarginecopertaeu\public\Ricevute \Al_07-10-2018creo D:\inetpub\webs\polmarginecopertaeu\public\Ricevut e\Al_07-10-2018creata D:\inetpub\webs\polmarginecopertaeu\public\Ricevut e\Al_07-10-2018Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
/menu.asp, line 188
La riga 188 è : fso.CopyFolder dir, bckdir

[optime]

vedi da te che ci sono degli spazi... probabilmente sono quelli a dare fastidio

prova a incapsulare le cartelle tra doppi apici

[optime]

pare basti terminare con "\" https://www.mrexcel.com/forum/excel-...aces-path.html

[devil946]

No gli spazi non ci sono, non so come mai prima li aveva messi.
dir...: D:\inetpub\webs\polmarginecopertaeu\public\Ricevut e
bkdir...:\inetpub\webs\polmarginecopertaeu\public\Ricevute \Al_07-10-2018creo D:\inetpub\webs\polmarginecopertaeu\public\Ricevut e\Al_07-10-2018creata D:\inetpub\webs\polmarginecopertaeu\public\Ricevut e\Al_07-10-2018
Per quanto riguarda "/" io ho scritto coem hai detto te, e come avevo già provato io in precedenza e cioé.
dir = "/public/Ricevute/"
bckdir = dir & "Al_" & Replace(FormatDateTime(Date(),2),"/","-") & "/"
ma come vedi anche te, quando vai a vedere cosa riporta l'ultimo "/" non c'è e secondo me l'errore sta li.
Come ca....o la risolvo, è da stamattina che ci impazzisco

[optime]

scusa, backslash è "\", tu stai aggiungendo "/" (slash)...

[optime]

e gli spazi continuo a vederli...

[Vincent.Zeno]

e gli spazi continuo a vederli...

è una fantasia erotica del forum, se "quoti il post" vedi che non ci sono.

@devil:
il codice riportalo SEMPRE nell'apposito tag CODE, così si evitano alcune bizzarrie del forum