Bonjour à tous,

Actuellement je zip en auto des fichiers
Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim oZip As ZipFiles
 
    Set oZip = New ZipFiles
    oZip.RootDirectory = Left(FilePath, Len(FilePath) - 1)
    oZip.ZipFileName = FilePathdest & ZipName
    oZip.UpdatingZip = False
    oZip.IgnorePath = True
    oZip.RecurseFolders = False
 
    For i = 0 To UBound(Files)
        oZip.AddFile FilePath & Files(i)
    Next i
 
 
    If oZip.MakeZipFile <> 0 Then
        MsgBox oZip.GetLastMessage
   End If
 Set oZip = Nothing
Le problème c'est que la compression des fichiers de plus de 2 Go est aléatoire : les fichiers ne sont pas complets, ne sont pas présent dans le zip, etc....

Je pensais resoudre mon soucis en créant une archive .rar, mais voilà je n'est trouvé aucun conseil sur Internet pour utiliser rar par VB6 (ainsi que l'utilisation de .dll).

Merci d'avance pour vos suggestions, afin de faire avancer mon problème.