quinta-feira, 29 de dezembro de 2011

on



Imports System.IO

Public Class Form1

    Private Sub btnCopiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopiar.Click
        Dim dialog As New OpenFileDialog

        If (dialog.ShowDialog().Equals(DialogResult.OK)) Then
            Dim conteudoArquivo As String
            Using stream As New StreamReader(New FileStream(dialog.FileName, FileMode.Open))
                conteudoArquivo = stream.ReadToEnd
                Dim linhas As String() = conteudoArquivo.Split(vbCr)
                Dim linhaAtual As Integer = 0
                ProgressBar1.Step = linhas.Count
                ProgressBar1.Maximum = linhas.Count

                For Each linha As String In linhas
                    'exemplo: crie um arquivo txt e dentro dele coloque um caminho de um arquivo,
                    'como por exemplo: C:\Controle de Estoque\Estoque.accdb

                    'o C:\bkp seria o caminho para onde estarei copiando o arquivo.
                    File.Copy(linha.TrimStart, Path.Combine("C:\bkp", Path.GetFileName(linha.TrimStart)), True)
                    linhaAtual = linhaAtual + 1
                    ProgressBar1.Value = linhaAtual
                    Application.DoEvents()
                Next
            End Using
        End If
    End Sub
End Class


0 comentários:

Postar um comentário