Correr un ProgressBar o Label en segundo plano en Vb.net

[davidalonsso05]

Buenos días, actualmente tengo un codigo que comprime todos los archivos .txt de una carpeta y/o subcarpetas. (Utilizo Vb.net 2005)
Lo que quiero es correr un ProgressBar en segundo plano o un Label mostrando el "porcentaje" mientras termina de comprimir los archivos para evitar que parezca como si se hubiese freezeado o paralizado la aplicacion, anexo el codigo!

Código vb:

Imports System.IO
Imports System.IO.DirectoryInfo
Imports System.IO.Directory
Imports Ionic.Zip
Imports System
 
 
Public Class Form1
    Private strPath As String
    Dim txt As String, bol As Boolean
    Dim a As String = ".zip"
 
 
    Private Sub btnArchivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnArchivo.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, FileIO.SearchOption.SearchAllSubDirectories)
                    TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString()
                  
                End If
                .Dispose()
            End With
 
        Catch oe As Exception
            MsgBox(oe.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 Public Sub Comprimirtxt()
        Dim txtFiles = Directory.GetFiles(Me.TextBox1.Text, "*.txt", SearchOption.AllDirectories)
        For Each currentFile As String In txtFiles
            Using zip As ZipFile = New ZipFile()
                zip.AddFile(currentFile, "")
                zip.Save(System.IO.Path.Combine(System.IO.Path.GetDirectoryName(currentFile), System.IO.Path.GetFileNameWithoutExtension(currentFile) + ".zip"))
                File.Delete(currentFile)
 
            End Using
        Next
    End Sub
Private Sub btnComprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnComprimir.Click
        BackgroundWorker1.RunWorkerAsync()
        If TextBox1.Text = "" Then
            MessageBox.Show("Seleccione una carpeta a comprimir")
        Else
            
                    Comprimirtxt()
                    MessageBox.Show("Accion Finalizada!", "Accion exitosa", MessageBoxButtons.OK)
End Class
 

Ese es mi codigo y ya llevo atorado como 5 dias URGE :/ Saludos!

[hdanielr]

davidalonsso05:
pregunto, ¿por qué tenés que hacer correr el progress bar en segundo plano?
Bastaría simplemente con hacer trabajar el progress bar normalmente, teniendo la precaución de incorporar un contador que en función de la relación entre la cantidad de archivos que se van comprimiento versus la cantidad total de archivos a comprimir, te vaya dando el porcentaje del trabajo realizado que debe ser llevado al progress.value, haciendo el valor máximo del progressbar = 100 y el mínimo igual a 0.

[davidalonsso05]

Algo asi quiero hacer sin embargo NO se como "concatenar" "relacionar" ambas cosas, los archivos que se van a comprimir con el progreso de la barra...
Y si son demasiados archivos los que va a comprimir, no se queda paralizado el programa y la barra tambien o la barra sigue aumentando o corriendo?

Gracias y estoy al pendiente de cualquier respuesta, saludos!

[hdanielr]

Nuevamente pregunto:
¿puedes determinar la cantidad de archivos a comprimir en la carpeta seleccionada?
Al aplicar el procedimiento: ¿puedes contar la cantidad de archivos que ya han sido comprimidos?
Si ambas cosas puedes hacerlas, tienes resuelto el value del progressbar.
Saludos

[davidalonsso05]

No, no se pueden determinar la cantidad de archivos ya que si son 2000 archivos a comprimir al momento de contarlos haria lento el programa y la verdad no se como hacer eso, de igual manera sigo buscando, gracias, hasta luego.

[angel1993]

Si el problema es que el programa se queda parado, es totalmente normal ya que trabaja en el mismo Thread que el Form, lo que tienes que hacer es o bien ejecutarlo en otro thread o usar un backgroundworker (que es otro thread pero "administrado" por decirlo de alguna manera), échale un ojo a los Threads y a el backgroundworker y escoge la opción que más te guste, para sacar el % tienes que contar todos los archivos, sean 2.000 o 10.00.000 de archivos porque si no sabes cuantos archivos hay no sabes cuanto % se ha completado, así que te toca contarlos :(

[davidalonsso05]

Exacto! Es lo que quiero, usar el BackGroundWorker a eso me referia con segundo plano y en estas lineas de codigo obtenia el total de archivos de la ruta seleccionada:

Código vb:

'Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
                    'nFiles = My.Computer.FileSystem.GetFiles(.SelectedPath, FileIO.SearchOption.SearchAllSubDirectories)
 

PERO por decir, el usuario seleccionaba una ruta y esta, tenia muchos archivos se tardaba en contarlos y se paralizaba, luego, en la aplicacion le doy opcion de comprimir solo la carpeta seleccionada o tambien los archivos en la subcarpeta y si el usuario seleccionaba solo la carpeta de igual manera me cuenta TODOS los archivos, en carpetas y subcarpetas de la ruta seleccionada...
Es por eso que quiero el ProgressBar en SEGUNDO PLANO por si se paraliza comprimiendo o contando que siga corriendo la barra...

[davidalonsso05]

Iniciado por angel1993

Si el problema es que el programa se queda parado, es totalmente normal ya que trabaja en el mismo Thread que el Form, lo que tienes que hacer es o bien ejecutarlo en otro thread o usar un backgroundworker (que es otro thread pero "administrado" por decirlo de alguna manera), échale un ojo a los Threads y a el backgroundworker y escoge la opción que más te guste, para sacar el % tienes que contar todos los archivos, sean 2.000 o 10.00.000 de archivos porque si no sabes cuantos archivos hay no sabes cuanto % se ha completado, así que te toca contarlos :(

Ya pude contarlos! hehe ya pude contarlos por extension y por carpeta y/o subcarpetas, solo me falta que la barra de progreso vaya aumentando de acuerdo a los archivos comprimidos :(

[angel1993]

¿No puedes Acceder desde otro thread al control?
mira esto http://www.elguille.info/NET/vs2005/..._otro_hilo.htm

[hdanielr]

Este artículo está también interesante

http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=528

[davidalonsso05]

La verdad que cada vez se me complica mas yo solo queria mostrar un progressbar en segundo plano que concordara con mi aplicacion y respecto a los enlaces los estoy analizando y si llego a obtener la solucion les aviso!

Saludos, buen dia!

[davidalonsso05]

Buenos días, aun sigo con esta duda despues de 8 dias de trabajo
Intente con el siguiente codigo...

Código vb:

Public Sub Comprimirtxt1()
        Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
        nFiles = My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
        i = CStr(nFiles.Count)
        j = CInt(i)
Dim txtFiles = Directory.GetFiles(Me.TextBox1.Text, "*.txt")
        For Each currentFile As String In txtFiles
            Using zip As ZipFile = New ZipFile()
                zip.AddFile(currentFile, "")
                zip.Save(System.IO.Path.Combine(System.IO.Path.GetDirectoryName(currentFile), System.IO.Path.GetFileNameWithoutExtension(currentFile) + ".zip"))
                File.Delete(currentFile)
 End Using
            'For x = 1 To j
            'ProgressBar1.Minimum = 1
            'ProgressBar1.Value = x
            'ProgressBar1.Maximum = 100
        Next
        'Next
    End Sub
 

Donde el usuario selecciona la ruta y la paso al textbox1, y logre contar los archivos ya sea por carpeta o subcarpetas pero sigo sin poder correr la barra en segundo plano...

Necesito ayuda ya que mañana es mi ultimo dia de trabajo y necesito entregarlo u.u

Saludos!

[angel1993]

Pon esto

Código vb:

CheckForIllegalCrossThreadCalls = False
 

en el formload y ya funcionaría, o debería.. jajaja

[davidalonsso05]

Ya casi casi jala la barra de progreso le puse la linea de codigo y lo unico que me da error es lo siguiente:

1.- Si son pocos archivos no corre totalmente la barra de progreso.
2.- Si son muchos archivos me dice:

Código vb:

Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
        nFiles = My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
        i = CStr(nFiles.Count)
        j = CInt(i)
        Dim x As Integer
        For x = 1 To j
            ProgressBar1.Minimum = 1
            ProgressBar1.Value = x + 1 <<<<< [B]El valor de '101' no es válido para 'Value'. 'Value' debería estar entre 'minimum' y 'maximum'.
Nombre del parámetro: Value[/B]
            ProgressBar1.Maximum = 100
 
        Next
    End Sub
 

Saludos!

[angel1993]

¿Por qué asignas el máximum y el mínimum en el for?
Si Maximun es 100, no puedes poner 101 de value por que supera el máximo, una opción sería, poner el máximo como el total de archivos que vas a recorrer

Código vb:

ProgressBar1.Maximum =nFiles.Count
 

eso por una lado, por otro
¿Por qué?

Código vb:

i = CStr(nFiles.Count)
j = CInt(i)
 

.Count es integer... lo estás convirtiendo en string para meterlo en i y luego otra vez en integer para meterlo en j, para eso haz directamente

Código vb:

j = nFiles.Count
 

De todas formas yo directamente lo haría así

Código vb:

Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
         Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
         nFiles = My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
        
         ProgressBar1.Maximum = nFiles.Count
         ProgressBar1.Minimum = 1
 
         For x = 0 To nFiles.Count - 1
            ProgressBar1.Value = x + 1
         Next
    End Sub
 

Fíjate que le resto 1 al .Count cuando hago el for, ya que las colecciones empiezan desde 0, así que el for empieza desde 0 hasta el total - 1
empezabas el for desde 1, si el primer elemento es 0, el primer elemento lo ignoras :/