|
Savoir fichiers ZIP à l'aide de Visual Basic.NET ( VB.NET ) peut vous faire gagner 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 s'ils vont être envoyés par e-mail pour un transfert plus rapide . Ils sont également compressés pour économiser de l'espace sur le 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. Instructions
1 Démarrez Microsoft Visual Basic Express et cliquez sur "Nouveau projet ... " Dans le volet gauche de votre écran . Double -cliquez sur " Application console. "
2 Appuyez sur "Ctrl + A" et appuyez sur "Supprimer " pour supprimer le code existant.
3 Copier collez le code suivant dans le module " Module1.vb " .
Imports System.IO Imports
System.IO.Compression
Module Module1 Sub
Main ()
zipDirPath As String = " C: \\ filesToZip "
DirInfo As DirectoryInfo = New DirectoryInfo ( zipDirPath )
Chaque currentFileInfo Comme FileInfo En DirInfo . GetFiles ()
Compress ( currentFileInfo )
Suivant
End Sub
Compress Private Sub ( ByVal currentFileInfo Comme FileInfo )
aide inFile Comme FileStream = currentFileInfo.OpenRead ()
( File.GetAttributes ( currentFileInfo.FullName ) et FileAttributes.Hidden ) _
<> FileAttributes.Hidden Et currentFileInfo.Extension < > " . gz "
puis en utilisant outFile Comme FileStream = File.Create ( currentFileInfo.FullName + ". gz " )
utilisant Compress Comme GZipStream = _
New GZipStream ( outFile , CompressionMode.Compress )
inFile.CopyTo ( Compress )
Console.WriteLine (" Compressed {0} de { 1} à { 2 } octets. ", _ < br > currentFileInfo.Name , currentFileInfo.Length.ToString (), _
outFile.Length.ToString ())
End Using
End Using
End If End Using
End Sub End Module
4 Modifiez la ligne de code suivante et tapez votre propre fichier chemin
zipDirPath As String = . "C: \\ filesToZip " .
Appuyez sur " F5" pour exécuter votre programme
|
