Pagina 2 di 2 primaprima 1 2
Visualizzazione dei risultati da 11 a 19 su 19

Discussione: Cartella compressa

  1. #11
    Utente di HTML.it
    Registrato dal
    Sep 2003
    Messaggi
    300
    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
    300

    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
    28,080
    Ma non lo zippi già con la classe aspzip?
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  4. #14
    Moderatore di XHTML e HTML L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    17,713
    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
    Moderatore di XHTML e HTML L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    17,713
    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
    Moderatore di XHTML e HTML L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    17,713
    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
    Moderatore di XHTML e HTML L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    17,713
    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
    Moderatore di XHTML e HTML L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    17,713
    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
    Moderatore di XHTML e HTML L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    17,713
    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

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 © 2017 vBulletin Solutions, Inc. All rights reserved.