none
Form trava ao copiar arquivos RRS feed

  • Pergunta

  • Olá

    Eu uso uma função para procurar e extrair arquivos de pastas e subpastas para apenas uma pasta:

     Public Function FindFiles(ByVal Path As String) As Boolean
                Dim Directories As New IO.DirectoryInfo(Path)
                Dim Directory As IO.DirectoryInfo
                Dim File As IO.FileInfo
    
                For Each Directory In Directories.GetDirectories
                    ToolStripButton2.Enabled = True
                    ToolStripButton1.Enabled = False
    
                    Dim counter = My.Computer.FileSystem.GetFiles(TextBox1.Text)
                    For Each File In Directory.GetFiles(TextBox3.Text)
                        Dim NomeSemExtensao = IO.Path.GetFileNameWithoutExtension(File.FullName)
                        Dim Extensao = IO.Path.GetExtension(File.FullName)
                        Dim Para = (TextBox2.Text & "\" & NomeSemExtensao & Extensao).Replace("/", "\").Replace("\\", "\")
                                    FileCopy(File.FullName, Para)
                                    RichTextBox1.Text &= vbCrLf & "Concluído! (" & Para & ")"
                    Next
                    If Directory.GetDirectories.Length > 0 Then
                        FindFiles(Directory.FullName)
                    End If
                Next
        End Function

    Funciona bem, só que o form trava enquanto procura/copia os arquivos e não sei oque fazer.

    Alguém me ajuda? Desde já agradeço.

    quinta-feira, 28 de abril de 2016 17:18

Respostas

  • Olá Eliseu,

    Você vai ter que criar uma thread neste caso, de forma que o sistema continue o processamento em segundo plano de forma assíncrona.

    Vê se este link te ajuda.

    • Marcado como Resposta Marcos SJ sexta-feira, 29 de abril de 2016 20:07
    sexta-feira, 29 de abril de 2016 11:45