Camping 1(Visual Basic) - Conteúdo

Campus 1 - (Visual Basic) Aula 1

Nesta Aula, eu irei mostrar como enviar arquivos de uma pasta para outra, utilizando o comando "FileCopy", evitando fazer chamada API.

Monte uma tela com duas caixas de texto, label, um botão de fechar e outro de executar.

Renomeie como quizer os componentes inseridos de forma que fique fácil o entendimento.

De duplo clique no botão de executar e depois insira o código abaixo.

Private Sub Command1Executar_Click()

On Error GoTo erro:

'#1 Declaração de variáveis
Dim origem As String
Dim destino As String

'#2 Atribuição de valores para as variáveis
origem = Text1.Text
destino = Text2.Text

'#3 Copiar arquivo no padrão (origem, destino)
FileCopy origem, destino

Exit Sub
erro:
MsgBox "Não existe arquivo! " & Err.Description, vbCritical, "Erro"
Resume Next

End Sub

Você poderá copiar arquivos únicos, ou então, pastas inteiras. Código muito útil para quem manipula arquivos.