GESTIONNAIRE DE SAUVEGARDES TOMB RAIDER

Public Sub UnzipAll()
 Dim MonZip As New ZipExtractionClass
 Dim FSO As New Scripting.FileSystemObject
 MonZip.ZipOpen (App.Path & "\Saves.zip")
 If MonZip.ZipComment = "Tomb Raider Saves" Then
  MonZip.ExtractAllFiles App.Path, False, True
 End If
 MonZip.ZipClose
 Set FSO = Nothing
End Sub

Public Sub ZipAll()
 Dim MonZip As New ZipClass
 Dim FSO As New Scripting.FileSystemObject
 MonZip.Comment = "Tomb Raider Saves"
 Dim i As Integer
 For i = 1 To 23
  If FSO.FileExists(App.Path & "\savegame." & i) Then
   MonZip.FileAdd App.Path & "\savegame." & i, WithoutPath, False
  End If
 Next i
 DelFile App.Path & "\Saves.zip"
 MonZip.WriteZip App.Path & "\Saves.zip", False
 i = 0
 For i = 1 To 23
  If FSO.FileExists(App.Path & "\savegame." & i) Then
   DelFile App.Path & "\savegame." & i
  End If
 Next i
 Set FSO = Nothing
End Sub

Télécharger le zip