Comment compresser des fichiers en utilisant vb net

Instructions

1. Démarrez Microsoft Visual Basic Express et clic "Nouveau projet..." sur le volet de gauche de votre écran. Double-cliquez sur "Application console."

2. Appuyez "Ctrl + A" puis appuyez sur "Effacer" pour supprimer le code existant.

3. Copiez et collez le code suivant à votre "Module1.vb" module.

   Imports System.IO

   Importations System.IO.Compression

   Module Module1

   Sub Main ()
   Dim zipDirPath Comme String = "C: filesToZip"
   Dim DirInfo Comme DirectoryInfo = New DirectoryInfo (zipDirPath)
   Pour chaque currentFileInfo Comme FileInfo Dans DirInfo.GetFiles ()
   
   
   Compresser (currentFileInfo)
   Suivant
   End Sub
   Private Sub Compress (ByVal currentFileInfo Comme FileInfo)
   Utilisation inFile Comme FileStream = currentFileInfo.OpenRead ()
   Si (File.GetAttributes (currentFileInfo.FullName) Et FileAttributes.Hidden) _
   
   
   
   lt; gt; FileAttributes.Hidden Et currentFileInfo.Extension lt; gt; ".gz" Alors
   Utilisation outFile Comme FileStream = File.Create (currentFileInfo.FullName + ".gz")
   Utilisation compresse GZipStream = _
   Nouveau GZipStream (outFile, CompressionMode.Compress)
   inFile.CopyTo (Compress)
   Console.WriteLine ("Comprimé {0} de {1} à {2} octets.", _
   currentFileInfo.Name, currentFileInfo.Length.ToString (), _
   outFile.Length.ToString ())
   End Using
   End Using
   Fin si
   End Using
   End Sub

   Module d'extrémité

4. Modifiez la ligne de code suivante et tapez votre propre chemin de fichier.

   Dim zipDirPath Comme String = "C: filesToZip"

   Appuyez "F5" pour exécuter votre programme.