none
comprimir carpetas y archivos RRS feed

  • Pregunta

  • hola todos

    Necesito desarrollar codigo para comprimir el contenido de Una cabarpeta ya Logre Hacerlo Pero el inconveniente Es Que el Código mí géneros Una Carpeta comprimida y dentro ¿La Carpeta Con El contenido example

    tengo una Carpeta

    prueba

             Fotos (folder

                        foto1.jpg

                        foto2.jpg

                        n mas fotos

                        (Estas fotos estan Dentro De La Carpeta fotos

             Prueba.klm (archivo

    RESULTADO ES reales

    archivo zip prueba y within this La Carpeta prueba y contents

    el m resultado que busco es archivo zip Prueba -----> Fotos, prueba.kml

    aqui pongo mi codigo real

                           

        Private Sub Button1_Click (remitente Como System.Object, e As System.EventArgs) Maneja Button1.Click
            'Si FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Entonces
            ' Me.aComprimir.Text = FolderBrowserDialog1.SelectedPath
            'End If

            CreateZipFile ( " c: \ prueba \ Photos.zip ")


            ZipFile (" c: \ prueba "," c: \ prueba \ Photos.zip ")



        End Sub

        Private Sub Button2_Click (sender As System.Object, e As System.EventArgs) Se encargan de Button2 .click
            Si FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Entonces
                Me.comprimido.Text = FolderBrowserDialog1.SelectedPath
            End If
        End Sub
        Public Sub CreateZipFile (ByVal Nombre As String) 'crear un nuevo archivo zip vacío
            ' crear cabecera del archivo zip
            codificador Dim como nuevo System.Text.ASCIIEncoding
            Cabecera Dim como secuencia = "PK" & Chr (5) & Chr (6)
            Header = Header.PadRight (22, Chr (0))

            'Save archivo - Asegúrese de que el archivo termina con .zip!
            My.Computer.FileSystem.WriteAllBytes (nombre de archivo, Encoder.GetBytes (Header), True)

        End Sub
        Public Sub ZipFile (ByVal archInput como secuencia, de ByVal Nombre As String)
            Dim Shell Como Nueva Shell32.Shell

            'Copia el archivo o carpeta para que

            Shell.NameSpace (Nombre) .CopyHere (archInput)


            MsgBox ( "copia Terminada")

        End Sub

    ya estube checando las Preguntas relacionadas Pero No necesito Encuentro Lo Que

    Gracias por su aporte


    Hivelos

    viernes, 9 de septiembre de 2016 22:04