Les partenaires publicitaires:

Comment compresser des fichiers en utilisant vb net

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. Fichiers compressés sont souvent si ils vont être envoyés par e-mail pour le 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.

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.

» » » » Comment compresser des fichiers en utilisant vb net