Visual Basic 6 - Zippare file da vb6

Salve, volevo sapere se era possibbile zippare dei file .ini creati con vb6. in pratica dato che i file sono molti vorrei che il programma quando vado a salvarli creasse un archvio con i file dentro.. Volevo sapere inoltre se era possibbile mettere una password al file zippato.. Grazie!!

Si, zippare i file si può...(poi penso anke x la pass)... Ne abbiamo già parlato sul forum, quindi fai una ricerca su pierotofy,oppure su google ke di esempi ce ne sono...

sul forum non ho trovato molto, e nemmeno su google.. sul forum ho trovato solo pierotofy.it/pages/extras/forum/6/42413-vb6_e_zip/ questo solo che dice di cercare su google e altri topic non interessanti... potresti darmi tu un link??

fai un modulo e mettici questo:

Public strScriptFullName, strCurrentPath, strZipFilePath, strAddFilePath
'''''''''''''''''''''''''''''''''''OPZIONI_ZIP''''''''''''''''''''''''''''''''''''''''''''
'[Crea un file zip vuoto]
Function CreateEmptyZip(strZipFilePath)
  On Error Resume Next

  'Apertura file in scrittura
  Dim objFso, objFile
  Const ForWriting = 2
  Set objFso = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFso.OpenTextFile(strZipFilePath, ForWriting, True)

  If Err = 0 Then
    objFile.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, 0)
  End If

  If Err = 0 Then
    objFile.Close
  End If

  Set objFso = Nothing
  Set objFile = Nothing

  If Err = 0 Then
    CreateEmptyZip = True
  Else
    Err.Clear
    CreateEmptyZip = False
  End If
End Function
'[Aggiunge un file al file zip]
Function AddFile2Zip(strZipFilePath, strAddFilePath)
  'On Error Resume Next

  Dim objApp, objFolder
  Set objApp = CreateObject("Shell.Application")
  Set objFolder = objApp.NameSpace(strZipFilePath)

  If Err = 0 Then
    Call objFolder.CopyHere(strAddFilePath)
  End If

  Set objFolder = Nothing
  Set objApp = Nothing

  If Err = 0 Then
    AddFile2Zip = True
  Else
    Err.Clear
    AddFile2Zip = False
  End If
End Function

Sono 2 funzioni, uno che crea lo zip e una che ci mette dentro i file, quindi chiama la prima funzione indicando la path e il nome dello zip da creare, poi chiama la seconda funzione indicando la path dei file da mettere nello zip...

ho controllato, ed era come ricordavo.
non si puo mettere la password a zip in vb6.
almeno non senza un qualche libreria esterna probabilmente a pagamento.
comunque, sempre lieto di essere smentito.

io infatti nn l'ho detto come una certezza... Cmq dopo farò delle ricerche per vedere se trovo qualkosa...

Forse continuo questo posto come un po di ritardo....avrei un problema usando il codice postato qui sopra.
Praticamente io aggiungo due file al file .zip e subito dopo li vorrei cancellare ma devo aspettare che il processo di "zippamento!" sia concluso.

Come posso fare? Dovrei aspettare un tempo che come faccio a conoscere!!

non si riprendono le discussioni vecchie, apri un nuovo topic

p.s. Usa un ciclo che controlla periodicamente se lo "zippamento" è finito