O comando FileCopy sobrepõe um arquivo inexistente e não dá mensagem de erro (desde que o arquivo não esteja aberto).
É uma boa prática sempre verificar antes se o arquivo existe e em caso afirmativo, perguntar ao usuário se ele quer continuar com a operação.
Abaixo um código de exemplo.
Ah, também, um detalhe que acabei conversando com colegas e apesar de não gerar nenhum erro, fica absurda a leitura do programa: notem o Else sem comando abaixo dele.
Funciona, mas não faz sentido. Se não tem ação a ser tomada, não escreva o Else!
;-)
Sub Verifica_e_CopiaArquivos()
Origem = "C:\teste.txt"
Destino = "D:\teste.txt"
If Dir(Destino) <> "" Then
If MsgBox("O arquivo já existe, deseja sobrepor?", vbYesNo) = vbYes Then
FileCopy Origem, Destino
End If
'--- um Else sem comando a ser executado! ---
Else
'--------------------------------------------
End If
End Sub

Nenhum comentário:
Postar um comentário