vb 4.5 créer un zip file a partir d'une liste de fichiers

Salut à tous,

je suis en train de travailler sur un module de compression de fichier log.

Vb.net offre un outils facile pour créer a partir d'un répertoire, mais je donne ici la possibilité à mon user de choisir le type de fichier log qu'il veut sauvegarder, d'ou ma liste de fichier.

Je rencontre seulement nombre d'erreurs pourriez-vous m'éclairer ?
Lorsque j'ouvre le fichier il me signal des erreurs du genre fichier read-only

ou que j'ai besoin d'un stream, write and read, je dois avouer que je bloque completement sur la manière de faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
            ' Verify that the target directory exists
            If Not System.IO.Directory.Exists(Path.GetDirectoryName(strZipFilename)) Then
                System.IO.Directory.CreateDirectory(Path.GetDirectoryName(strZipFilename))
            End If
 
            'Verify if the file already exist
            Using FileToOpen As FileStream = New FileStream(strZipFilename, FileMode.Append)
                Using archive As ZipArchive = New ZipArchive(FileToOpen, ZipArchiveMode.Update)
                    For Each logFile As String In _listOfFiles
                        archive.CreateEntryFromFile(logFile, logFile, CompressionLevel.Optimal)
                        'Dim FileToAdd As ZipArchiveEntry = archive.CreateEntry(logFile)
                        'Using writer As StreamWriter = New StreamWriter(FileToAdd.Open())
 
                        'End Using
                    Next
                End Using
            End Using