Public Shared Sub AutoRetry()
      ' Enable auto retries by asking for 5 retries
      ZipArchive.NumAutoRetries = 5

      ' Set up a delay of 200ms between retries
      ZipArchive.AutoRetryDelay = 200

      ' Select a file that will be our zip file
      Dim zipFile As AbstractFile = New DiskFile("AutoRetry1.zip")

      ' If the zip file already exists
      If zipFile.Exists Then
        ' Delete it
        zipFile.Delete()
      End If

      ' Create a logical zip archive around the zip file
      Dim zip As New ZipArchive(zipFile)

      ' Wrap the operations that modify the zip archive in a batch update
      Using batch As New AutoBatchUpdate(zip)
        ' Select an individual file
        Dim sourceFile As AbstractFile = New DiskFile("SomeFile.dat")

        ' Select a specific target name and path for the file in the archive
        Dim targetFile As AbstractFile = zip.GetFile("MyFolder1\MyFolder2\MyNamedFile.mydata")

        ' Zip it to the archive
        sourceFile.CopyTo(targetFile, True)
      End Using

      ' Wrap the operations that modify the zip archive in a batch update
      Using batch As New AutoBatchUpdate(zip)
        ' Select an individual file
        Dim sourceFile As AbstractFile = New DiskFile("SomeOtherFile.dat")

        ' Select a specific target name and path for the file in the archive
        Dim targetFile As AbstractFile = zip.GetFile("MyFolder1\MyFolder2\MyNamedFile.mydata")

'         We will now update the existing item in the archive. If the temporary files
'           somehow cannot be moved, renamed or deleted because of interference from another
'           application, the component will retry because we set the 'auto retry' properties
'           above.
'           
'           Note that this will happen during the closure of the AutoBatchUpdate block we are
'           in. 

        ' Update the item in the archive
        sourceFile.CopyTo(targetFile, True)
      End Using
    End Sub