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é?