[SOLUCIONADO] Asignar nombre a archivo comprimido.

[davidalonsso05]

Buen dìa!
Vengo con la siguiente duda, al momento de comprimir un archivo en una aplicacion de vb.net 2005 si es un .txt me guarda el archivo con el nombre del archivo que comprimi, mas la extension, por ejemplo.
Comprimo un archivo de Word llamado Tarea 1, me lo guarda como Tarea 1.doc (el nombre del archivo comprimido) en lugar de solamente Tarea 1, si funciona bien el programa ya que si comprime y se encuentra el archivo dentro, solamente quiero que aparesca con el nombre del archivo, sin la extension, no es el windows ya lo verifique, pongo el codigo:

Código vb:

Imports Ionic.Zip
Imports System.IO
Imports Ionic.BZip2
 Private Sub Comprimir()
        Using zip As ZipFile = New ZipFile()
            zip.AddFile(Me.TextBox1.Text, "")
            Me.TextBox2.Text = Me.TextBox1.Text
            zip.Save(TextBox2.Text & ".zip")
        End Using
    End Sub
 
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
 
        Dim strm As System.IO.Stream
        strm = OpenFileDialog1.OpenFile()
        TextBox1.Text = OpenFileDialog1.FileName.ToString()
 
        If Not (strm Is Nothing) Then
            'insert code to read the file data
            strm.Close()
            MessageBox.Show("Archivo Seleccionado")
        End If
    End Sub
 
Private Sub btComprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btComprimir.Click
        Try
            If TextBox1.Text = "" Then
                MessageBox.Show("Verifique la informacion completa")
            Else
 
                Comprimir()
               
            End If
            TextBox1.Clear()
          
 
        Catch
            Comprimir()
        Finally
        End Try
    End Sub
 
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        OpenFileDialog1.Title = "Seleccione un archivo"
        OpenFileDialog1.InitialDirectory = "C:temp"
 
        OpenFileDialog1.ShowDialog()
 
    End Sub
 

Saludos!

[alexg88]

En realidad te lo está guardando como Tarea1.doc.zip, lo que pasa es que tendrás activado el modo en el que no se muestran las extensiones de archivo.

Para que haga lo que quieres tienes que quitarlo manualmente la extensión al archivo que comprimes. Puedes usar la clase Path para ello.

Código vb:

fileName = Path.GetFileNameWithoutExtension(fileName)
 

Un saludo.

[davidalonsso05]

Gracias ya encontre el detalle!!

Oye disculpa se podria hacer lo mismo para seleccionar una carpeta y que en automatico comprima todos los archivos que estan dentro de ella pero por separado...

Gracias y saludos!

[alexg88]

Tienes dos formas de hacerlo.

1. Recorrer recursivamente los directorios.
2. Usando la opción SearchOption.AllDirectories del método EnumerateFiles de la clase Directory

Ejemplo de lo segundo:

Código VB:

'De esta manera obtienes todos los ficheros del directorio y subdirectorios
 Dim txtFiles = Directory.EnumerateFiles(sourceDirectory, "*", SearchOption.AllDirectories)
 
            For Each currentFile As String In txtFiles
               'Aquí haces lo que quieras con cada fichero               
            Next
 

Échale un vistazo: http://msdn.microsoft.com/es-es/library/dd383571.aspx

[davidalonsso05]

de acuerdo, ya pude seleccionar una carpeta con el siguiente codigo:

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
 
            With FolderBrowserDialog1
                .Reset()
                .Description = " Seleccionar una carpeta "
                .SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
                .ShowNewFolderButton = False
                Dim ret As DialogResult = .ShowDialog
                If ret = Windows.Forms.DialogResult.OK Then
                    Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
                    nFiles = My.Computer.FileSystem.GetFiles(.SelectedPath)
                    TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString()
                    MsgBox("Total de archivos: " & CStr(nFiles.Count), _
                                            MsgBoxStyle.Information)
                End If
                .Dispose()
            End With
        Catch oe As Exception
            MsgBox(oe.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 

Pero al momento de comprimir asi:

Código vb:

Public Sub Comprimir()
        Try
            Using zip As New ZipFile()
                zip.AddDirectory(Me.TextBox1.Text)
 
                zip.Save(System.IO.Path.Combine(System.IO.Path.GetDirectoryName(Me.TextBox1.Text), System.IO.Path.GetFileNameWithoutExtension(Me.TextBox1.Text) + ".zip"))
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try
 
    End Sub
 

Me comprime toda la carpeta y dentro vienen los archivos.

Lo que quiero es que por ejemplo, yo seleccione una carpeta, me comprima todos los archivos que vienen dentro de ella PERO cada archivo que viene dentro lo comprima por separado, que aparescan por decir, si vienen 5 documentos, que aparezcan 5 archivos .zip por separada, cada uno con un documento...
Saludos buen dia!

[alexg88]

¿Puedes mostrar como llamas al método Comprimir?

Por lo que parece quieres comprimir un directorio entero, pero quiero saber como estás haciendo la llamada porque sin esa información es un poco complicado saber que pasa.

Un saludo.

[davidalonsso05]

Código vb:

Private Sub btnComprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            If TextBox1.Text = "" Then
                MessageBox.Show("Verifique la informacion completa")
            Else
                Comprimir()
                ProgressBar1.Value = ProgressBar1.Maximum
                MessageBox.Show("Archivo Comprimido")
                ProgressBar1.Value = ProgressBar1.Minimum
            End If
            TextBox1.Clear()
        Catch
        End Try
 
 
    End Sub
 

Al dar click sobre el archivo comprimir... es a lo que se refiere?

[alexg88]

Ha habido un pequeño error, porque has editado la pregunta y yo estaba leyendo lo que habías escrito antes.

Rebobinemos.

Como te dije en la respuesta de ayer, tienes que enumerar los ficheros e ir comprimiendolos uno a uno.

Código vb:

Dim txtFiles = Directory.EnumerateFiles(sourceDirectory, "*", SearchOption.AllDirectories)
 
            For Each currentFile As String In txtFiles
               Comprimir(Path.GetFileNameWithoutExtension(currentFile))
            Next
 
 
 Private Sub Comprimir(Dim file as String)
        Using zip As ZipFile = New ZipFile()
            zip.AddFile(file, "")
            zip.Save(file & ".zip")
        End Using
    End Sub
 

No me has dicho donde quieres guardar los archivos comprimidos, si en el mismo lugar que el archivo original o en otra ruta. Para cambiar eso, sólo tendrías que jugar con la ruta de guardado.

Un saludo.

[davidalonsso05]

Si, guardar en el archivo original en la misma ruta, lo que sucede es que la ruta aparece en el textbox ya que es manul, el pedazo de codigo que me proporcionas:

Código vb:

Dim txtFiles = Directory.EnumerateFiles(sourceDirectory, "*", SearchOption.AllDirectories)
 
            For Each currentFile As String In txtFiles
               Comprimir(Path.GetFileNameWithoutExtension(currentFile))
            Next
 

tendria que añadir otra libreria? disculpa lo que sucede es que la primera vez que hago esto y no comprendo aun muy bien hehe

Y asi mismo me marca error en la linea Directory.EnumerateFiles ya que no me aparece la linea EnumarateFiles y en currentFile tambien...