Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

ZIPPARE FELLE CARTELLE Opzioni
tigre2209
Inviato: Friday, February 19, 2016 2:49:46 PM
Rank: Newbie

Iscritto dal : 4/8/2012
Posts: 1
ho questo problema.
Commenta:
Option Explicit

Const FOF_CREATEPROGRESSDLG = &H0&
Dim sSourceFolder
Dim sArchiveFile
Dim oShell
Dim oZIP
Dim oSourceFolder

'Settaggio Variabili
sSourceFolder = "C:\database"


sArchiveFile = "C:\DATABASE_ZIP\database-"&Year(date())&Month(date())&Day(date())&".ZIP"

Dim oFSO
Dim oFile
Dim iFiles
Dim Fldr

Set oFSO = CreateObject( "Scripting.FileSystemObject" )
Set oFile = oFSO.OpenTextFile( sArchiveFile , 2, True )
oFile.Write "PK" & Chr(5) & Chr(6) & String( 18, Chr(0) )
oFile.Close
Set oFile = Nothing
Set oFSO = Nothing

iFiles = 0

With CreateObject("Shell.Application")

'Copy the files to the compressed folder


.NameSpace(sArchiveFile).CopyHere .NameSpace( sSourceFolder ).Items, FOF_CREATEPROGRESSDLG

iFiles = iFiles + .NameSpace( sSourceFolder ).Items.Count

'Keep script waiting until Compressing is done
On Error Resume Next
Do Until .NameSpace( sArchiveFile ).Items.Count = iFiles
wScript.Sleep 1000
Loop
On Error GoTo 0

End With

con questo script mi zippa tutte le cartelle.
ma è un periodo che mi da questo errore, si interrompe e mi dice :

File zip mancante o vuoto

che vuol dire??
Sponsor
Inviato: Friday, February 19, 2016 2:49:46 PM

 
dottorserpente
Inviato: Friday, February 19, 2016 3:19:11 PM

Rank: AiutAmico

Iscritto dal : 9/6/2010
Posts: 2,017
Se hai necessità di zippare file e cartelle, con winrar, semplice rapido pratico e veloce, zippi e comprimi tutto quello che vuoi senza sbattimenti.

___________________










Chi tace, non sempre acconsente. A volte non ha voglia di discutere con idioti.


Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.