Savoir fichiers zip en utilisant Visual Basic.NET (VB.NET) peut vous faire économiser du temps si vous avez besoin de compresser un grand nombre de fichiers. Zip est un format de fichier utilisé pour la compression de fichiers. Les fichiers sont souvent compressés si elles vont être envoyées par e-mail pour un transfert plus rapide. Ils sont également compressés pour économiser l`espace disque dur. VB.NET est un langage de programmation informatique orienté objet développé par Microsoft. VB.NET est apprécié pour sa souplesse et sa facilité d`utilisation.
Démarrez Microsoft Visual Basic Express et cliquez "Nouveau projet..." dans le volet gauche de votre écran. Double-cliquez sur "Application de la console."
presse "Ctrl + A" puis appuyez sur "Effacer" pour supprimer le code existant.
Copiez et collez le code suivant à votre "Module1.vb" module.
Imports System.IO
importations System.IO.Compression
Module Module1
Sub Main ()Dim zipDirPath As String = "C: filesToZip"
Dim DirInfo Comme DirectoryInfo = New DirectoryInfo (zipDirPath)
Pour chaque currentFileInfo Comme FileInfo Dans DirInfo.GetFiles ()
Compresser (currentFileInfo)
Prochain
End Sub
Private Sub Compress (ByVal currentFileInfo Comme FileInfo)
Utilisation de 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 de outFile Comme FileStream = File.Create (currentFileInfo.FullName + ".gz")
Utilisation de Compress Comme GZipStream = _
New GZipStream (outFile, CompressionMode.Compress)
inFile.CopyTo (Compress)
Console.WriteLine ("Comprimé {0} de {1} à {2} octets.", _
currentFileInfo.Name, currentFileInfo.Length.ToString (), _
outFile.Length.ToString ())
Fin Utilisation
Fin Utilisation
Fin si
Fin Utilisation
End Sub
Module Fin
Modifiez la ligne de code suivante et tapez votre propre chemin de fichier.
Dim zipDirPath As String = "C: filesToZip"
presse "F5" pour exécuter votre programme.
