none
copiar archivos y mostrar el nombre usando progressbar RRS feed

  • Pregunta

  • hola a todos que El Señor jesucristo les bendiga, necesito ayuda si alguien puede ayudarme quiero crear una utilidad que sirva para copiar todo el contenido de una carpeta a otra ubicacion no mover sino copiar y tengo este codigo que me funciona perfecto pero tiene un problema que cuando termina de copiar todo el contenido me dice que el valor del progressbar 110 no es valido no se porque o no se que hacer para solucionar eso tambien kisiera que en un label el programa me valla mostrando cada archivo que se esta copiando bueno este es el codigo espero que me ayuden a solucionar eso gracias.. tambien los porciento osea (" %") no me muestra los numeros no se porque

     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
          

            Dim xNewLocataion = unidades2.SelectedItem

            Dim xFilesCount = Directory.GetFiles(TextBox1.Text).Length
            Dim xFilesTransferred As Integer = 0

            For Each xFiles In Directory.GetDirectories(TextBox1.Text)
                My.Computer.FileSystem.CopyDirectory(xFiles, xNewLocataion & "\" & Path.GetFileName(xFiles), True)
                xFilesTransferred += 1
                Label7.Text = "Copiando: " + Path.GetFileName(xFiles)
                ProgressBar1.Value = xFilesTransferred * 100 / xFilesCount

                Label4.Text = ProgressBar1.Value & (" %")



            Next
            For Each xFiles In Directory.GetFiles(TextBox1.Text)
                My.Computer.FileSystem.CopyFile(xFiles, xNewLocataion & "\" & Path.GetFileName(xFiles), True)
                xFilesTransferred += 1
                Label7.Text = "Copiando: " + Path.GetFileName(xFiles)
                ProgressBar1.Value = xFilesTransferred * 100 / xFilesCount
                Label4.Text = ProgressBar1.Value & (" %")
            Next

            Timer1.Stop()
            My.Computer.Audio.Play(My.Resources.complete, _
     AudioPlayMode.Background)
            MsgBox("archivos copiados Exitosamente")
            ProgressBar1.Value = 0
            TextBox1.Text = ""



        End Sub

    lunes, 28 de abril de 2014 22:16