Compresser des fichiers

Bonjour à tous,

Actuellement je zip en auto des fichiers
Voici mon code :

Code:

---

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.