Pagina 2 di 3 primaprima 1 2 3 ultimoultimo
Visualizzazione dei risultati da 11 a 20 su 30

Discussione: Cartella compressa

  1. #11
    Utente di HTML.it
    Registrato dal
    Sep 2003
    Messaggi
    359
    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é?
    Chi Crede in Me non Perirà MAI

  2. #12
    Utente di HTML.it
    Registrato dal
    Sep 2003
    Messaggi
    359

    RISOLTO

    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 è?
    codice:
      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
    Chi Crede in Me non Perirà MAI

  3. #13
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,131
    Ma non lo zippi già con la classe aspzip?
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  4. #14
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,649
    non si può lanciare un exe, salvo configurazioni personalizzate del server.

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

  5. #15
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,649
    ho fatto ora un po' di prove... mi pare che ci sia un problema col ciclo o con la velocità di esecuzione, verifico

  6. #16
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,649
    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?

  7. #17
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,649
    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
    Ultima modifica di Vincent.Zeno; 09-09-2017 a 17:45

  8. #18
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,649
    per zippare una cartella:

    codice:
    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

  9. #19
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,649
    per estrarre:
    codice:
    filepath = "../public/zip/zipfile.zip"
    extractToFolder="\public\zip"
    	
    	set zip = new aspZip
    	zip.OpenArquieve(filepath)
    	zip.ExtractTo(extractToFolder)
    	zip.CloseArquieve()
    	set zip = nothing

  10. #20
    Utente di HTML.it
    Registrato dal
    Sep 2003
    Messaggi
    359
    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.
    codice:
      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
    Chi Crede in Me non Perirà MAI

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.