função excluir arquivo

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

função excluir arquivo

Mensagempor brunsftw » Ter Dez 18, 2018 4:02 pm

boa tarde!
tô precisando de uma ajuda pra implementar essa função que exclui um arquivo de acordo com um diretório selecionado.
até agora tenho isso codificado:

Código: Selecionar todos
Sub teste()

    Dim strCaminho As String
    Dim strArquivo As String
   
    strCaminho = fncOpenDirectoryDialog
    strArquivo = "Orcamento" & wstblOrcamento.Range("G1").Value
   
    Call excluirOrcamento(strCaminho, strArquivo)
   
End Sub



Código: Selecionar todos
Public Function excluirOrcamento(strCaminho As String, strArquivo As String)
         
End Function
brunsftw
Membro
Membro
 
Mensagens: 106
Registrado em: Dom Abr 07, 2013 11:07 am
Has thanked: 25 times
Have thanks: 1 time

{ SO_SELECT }

Re: função excluir arquivo

Mensagempor Reinaldo » Qua Dez 19, 2018 1:10 pm

Experimente:
Código: Selecionar todos
Public Function excluirOrcamento(strCaminho As String, strArquivo As String)
If VBA.Right(strCaminho, 1) <> "\" Then strCaminho = strCaminho & "\"
Kill strCaminho & strArquivo
End Function

Observação:
Originalmente de http://www.rondebruin.nl
Sintaxe: Kill "D:\Diversos\Download\Desktop.zip"
Você precisa lembrar, no entanto, que o comando Kill exclui permanentemente o arquivo.
Não há como "desfazer" a exclusão. O arquivo não é enviado para a Lixeira do Windows
(Similar para as macro's que usam o objeto filesystem)
Reinaldo
 


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 3 visitantes

cron