quinta-feira, 16 de fevereiro de 2017

Pequenos cuidados com o FileCopy

As vezes, sobrepor um arquivo existente pode ser um desastre ou não dependendo do conteúdo, então não custa tomar cuidado na hora de codificar.
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:

Pesquisar este blog

Arquivo do blog

Quem sou eu

Minha foto
Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient. Pós-graduado em Business Intelligence.