Cartella compressa

[devil946]

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:

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

[devil946]

RISOLTO!!!!
Mancava un pezzo di codice, sfido che non funzionava, quando si dice che lavorare troppo fa male.
La sera dopo una certa ora si dovrebbe fare festa e non incaponirsi, comunque la soluzione è?

  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
fso.CopyFolder Server.MapPath(bckdir),"c:\"
set fso=nothing

Adesso perè gradirei sapere se esiste un modo per lanciare un exe, tipo winrar per compattare la cartella
Grazie

[cavicchiandrea]

Ma non lo zippi già con la classe aspzip?

[Vincent.Zeno]

ho fatto ora un po' di prove... mi pare che ci sia un problema col ciclo o con la velocità di esecuzione, verifico

[Vincent.Zeno]

non si può lanciare un exe, salvo configurazioni personalizzate del server.

prendi i singoli file e inseriscili nello zip con un ciclo, come sopra

[Vincent.Zeno]

dopo un po' di lavoro ora non va più , anche a me prima inseriva due/tre file. ora più niente...
uso server condiviso su aruba, possibile limitazione?

[Vincent.Zeno]

ho cambiato cartella al file della classe, ed è tornato a funzionare.

ho notato anche che:
se nella stesse procedura prima zippo e poi estraggo (come da esempio dell'autore), difficilmente mi estrae alla prima esecuzione dello script. rieseguendola estrae. e quindi mi da l'idea di un problema di velocità: come se non aspettasse di popolare lo zip per estrarre. quindi chiude subito l'oggetto non avendo ancora contenuti o essendo lo zip ancora aperto.

stessa faccenda per l'inserimento: più di un file alla volta crea problemi.
con due file piccini ancora ce la fa... ma non va molto oltre.

ho rimesso il file della classe nella cartella usata in precedenza, ora va pure anco lì!

in sostanza credo che il miglior modo per usare la classe sia quello di farlo con un file alla volta, non ciclando all'interno dello script

vi aggiorno sui misfatti

[Vincent.Zeno]

per zippare una cartella:

filepath = "../public/zip/zipfile.zip"
folderToZip=Server.MapPath("\public\folder")

    set zip = new aspZip
    zip.OpenArquieve(filepath)
    zip.Add(folderToZip)
    zip.CloseArquieve()
    set zip = nothing

[Vincent.Zeno]

per estrarre:

filepath = "../public/zip/zipfile.zip"
extractToFolder="\public\zip"
	
	set zip = new aspZip
	zip.OpenArquieve(filepath)
	zip.ExtractTo(extractToFolder)
	zip.CloseArquieve()
	set zip = nothing

[devil946]

Ciao a tutti,rieccomi dopo tanto tempo con il problema legato allo zip della cartella.
Vi rinfresco le idee, il codice che vi posto sotto funziona benissimo, nel senso che raccoglie tutti i file in una cartella specifica, la quale cartella viene poi zippata. Dentro il file zip ci sono tutti i file contenuti nella cartella, l'unico problema è che per aprire il file zip devo andare ad inserire le autorizzazioni e devo diventare il proprietario dell'oggetto. Capite benissimo che non è una cosa nè bella nè giusta, quindi la domanda è: come faccio a passargli il proprietario (es. gruppo administrators, o gruppo utenti) e quindi anche le autorizzazioni; ovviamente questi parametri vanno impostati nel codice della classe aspzip.
Grazie in anticipo.

  Dim fso, folder, files, File
  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))
	  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


filepath = "/public/Ricevute/Zip/"&Replace(FormatDateTime(Date(),2),"/","-")&".zip"
folderToZip=Server.MapPath(bckdir)


set zip = new aspZip
zip.OpenArquieve(filepath)
zip.Add(folderToZip)
zip.CloseArquieve()
set zip = nothing