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:
Ver originalPrivate 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!