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