zip di file

[tigre2209]

buongiorno
ho un problema su uno script che effettua lo zip delle cartelle.

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-"&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

il problema di solito funziona, ma se capita che all'interno trova delle cartelle vuote, si blocca e da errore Impossibile creare zip. il file potrebbe essere in uso

[LeleFT]

Non hai specificato né il linguaggio, né la versione.
Il linguaggio è sicuramente VB (o VBA), quale versione?

VB, per tutte le sue versioni, ha un forum dedicato: Visual Basic e .NET Framework.

Sposto la discussione, tu specifica la versione.


Ciao.