quinta-feira, 13 de setembro de 2012

on

Adicionem em seu projeto quando estiverem fazendo os seguintes componentes:

*FolderBrowserDialog1;
*OpenFileDialog1.


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIniciarCopia.Click

        If Me.txtarquivoOrigem.Text = "" Then
            MsgBox("Selecione um arquivo para que seja feita a cópia.", MsgBoxStyle.Exclamation)
        Else
            If Me.txtLcoalDestino.Text = "" Then
                MsgBox("Selecione um local de destino para que seja feita a cópia.", MsgBoxStyle.Exclamation)
            Else
                My.Computer.FileSystem.CopyFile(Me.txtarquivoOrigem.Text, Me.txtLcoalDestino.Text, True)
                MsgBox("Arquivo copiado com sucesso.", MsgBoxStyle.Exclamation)
            End If
        End If

    End Sub

    Private Sub btnProcurar_Click(sender As System.Object, e As System.EventArgs) Handles btnProcurar.Click

        Me.OpenFileDialog1.Filter = "All files (*.*)|*.*"
        Me.OpenFileDialog1.RestoreDirectory = True

        If Me.OpenFileDialog1.ShowDialog = DialogResult.Cancel Then
            Return
        Else
            Me.txtarquivoOrigem.Text = Me.OpenFileDialog1.FileName
        End If

    End Sub

    Private Sub btnDestino_Click(sender As System.Object, e As System.EventArgs) Handles btnDestino.Click

        If Me.FolderBrowserDialog1.ShowDialog = DialogResult.Cancel Then
            Return
        Else
            Me.txtLcoalDestino.Text = Me.FolderBrowserDialog1.SelectedPath + "\" + CStr(OpenFileDialog1.SafeFileName)
        End If

    End Sub

    Private Sub btnEncerrar_Click(sender As System.Object, e As System.EventArgs) Handles btnEncerrar.Click
        End
    End Sub
End Class


 Espero ter ajudado! Até a próxima, abraços...

0 comentários:

Postar um comentário