[Resolvido]Excluir arquivo externo via VBA no Access 2003

Access365 11/10/2012, 06:56

Access365: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 288
Registrado : 09/07/2012

Mensagem nº1

Excluir arquivo externo via VBA no Access 2003

Mensagem Access365 11/10/2012, 06:56

Olá pessoal, tudo bem?

Estou tentando excluir um arquivo externo criado através de uma visualização, mas não está excluindo... Podem me ajudar?

Sub DeleteSpy()
On Error Resume Next
Dim ArquivoPDF As Object
Dim File As String
File = "C:\Documents and Settings\All Users\Dados de aplicativos\SpySNP.dpf"
ArquivoPDF.DeleteFile File, True
Set ArquivoPDF = Nothing
End Sub

Agradeço desde já!
Paulo César

criquio 11/10/2012, 11:52

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem criquio 11/10/2012, 11:52

Tente assim:

Código:: Sub DeleteSpy() Dim ArquivoPDF As FileSystemObject Set ArquivoPDF = New FileSystemObject ArquivoPDF.DeleteFile "C:\Documents and Settings\All Users\Dados de aplicativos\SpySNP.pdf" Set ArquivoPDF = Nothing End Sub

Não utilize Resume Next quando estiver testando o aplicativo, pois ele desabilita as mensagens de erro que dá dicas sobre possíveis falhas.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

**Cláudio Más** 11/10/2012, 13:10

Cláudio Más

Cláudio Más: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1314
Registrado : 21/01/2012

Mensagem nº3

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Cláudio Más 11/10/2012, 13:10

Tem também a instrução Kill

Access365 11/10/2012, 20:58

Access365

Access365: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 288
Registrado : 09/07/2012

Mensagem nº4

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Access365 11/10/2012, 20:58

Olá... Obrigado gente, mas nada acontece.
criquio, já tirei o Resume Next, mas nada acontece...

Última edição por infosoft em 11/10/2012, 21:12, editado 1 vez(es)

**Cláudio Más** 11/10/2012, 21:07

Cláudio Más

Cláudio Más: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1314
Registrado : 21/01/2012

Mensagem nº5

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Cláudio Más 11/10/2012, 21:07

Faz um teste movendo o arquivo para outra pasta (por exemplo: C:\Teste\SpySNP.pdf) e usando o comando:

Código:: Kill "C:\Teste\SpySNP.pdf"

**Alexandre Neves** 11/10/2012, 21:08

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº6

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Alexandre Neves 11/10/2012, 21:08

Já viu bem o código se está certo?
tem escrito "dpf". Quererá apagar "pdf"?

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

Access365 11/10/2012, 21:15

Access365

Access365: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 288
Registrado : 09/07/2012

Mensagem nº7

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Access365 11/10/2012, 21:15

Olá...
O Kill dá na mesma... nada acontece...
É PDF, já modifiquei...

Access365 11/10/2012, 21:18

Access365

Access365: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 288
Registrado : 09/07/2012

Mensagem nº8

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Access365 11/10/2012, 21:18

Pera aí...
Cláudio Más, o Kill sozinho funfou!
É assim mesmo?

Sub ExcluirSpy()
On Error Resume Next
Kill "C:\Documents and Settings\All Users\Dados de aplicativos\SpySNP.pdf"
Beep
MsgBox "Seus rastos foram apagados.", vbOKOnly, "Aviso"
End Sub

Access365 11/10/2012, 21:27

Access365

Access365: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 288
Registrado : 09/07/2012

Mensagem nº9

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Access365 11/10/2012, 21:27

criquio, Cláudio Más e Alexandre Neves,
Agradecemos, muito, pela gentileza de vocês me dar este help.
o kill 'sozinho' funcionou, espero que eu esteja certo...
Mas tem um problema, mesmo se NÃO tem o arquivo lá (C:\Documents and Settings\All Users\Dados de aplicativos) a mensagem aparece.
E como o kil tá sozinho numa linha, como eu implemento dois tipos de mensagem?

Agradeço novamente!
Paulo

criquio 11/10/2012, 21:34

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº10

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem criquio 11/10/2012, 21:34

Como assim dois tipos de mensagens? Exemplifique.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

**Alexandre Neves** 11/10/2012, 21:40

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº11

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Alexandre Neves 11/10/2012, 21:40

Sub ExcluirSpy()
On Error Resume Next

if Dir$("C:\Documents and Settings\All Users\Dados de aplicativos\SpySNP.pdf")="" then
msgbox "Ficheiro inexistente."
else
Kill "C:\Documents and Settings\All Users\Dados de aplicativos\SpySNP.pdf"
Beep
MsgBox "Seus rastos foram apagados.", vbOKOnly, "Aviso"
end if
End Sub

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

Access365 11/10/2012, 21:44

Access365

Access365: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 288
Registrado : 09/07/2012

Mensagem nº12

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Access365 11/10/2012, 21:44

Olá criquio!
Assim, ó:

Sub ExcluirSpy()
On Error Resume Next
Kill "C:\Documents and Settings\All Users\Dados de aplicativos\SpySNP.pdf"
'Se o arquivo está lá
Beep
MsgBox "Seus rastos foram apagados.", vbOKOnly, "Aviso"
'Se o arquivo NÃO está lá
Beep
MsgBox "Nenhum rasto foi encontrado!", vbOKOnly, "Aviso"
End Sub

Será que tem jeito?
Obrigado!

Access365 11/10/2012, 21:48

Access365

Access365: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 288
Registrado : 09/07/2012

Mensagem nº13

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Access365 11/10/2012, 21:48

Olá Alexandre Neves!
Perfeito... é isso mesmo cara... nossa valeu mesmo!
Obrigado a todos pela gentileza em ajudar, de coração...

Obrigado, novamente, e muita Luz e Paz!
Paulo

Access365 11/10/2012, 21:51

Access365

Access365: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 288
Registrado : 09/07/2012

Mensagem nº14

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Access365 11/10/2012, 21:51

Ficou assim:

Sub ExcluirSpy()
On Error Resume Next
If Dir$("C:\Documents and Settings\All Users\Dados de aplicativos\SpySNPSNP.pdf") = "" Then
MsgBox "Você não deixou rastos."
Else
Kill "C:\Documents and Settings\All Users\Dados de aplicativos\SpySNPSNP.pdf"
Beep
MsgBox "Seus rastos foram apagados.", vbOKOnly, "Aviso"
End If
End Sub

Agradeço novamente a todos pela moral, Luz e Paz!
Paulo

Access365 11/10/2012, 21:57

Access365

Access365: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 288
Registrado : 09/07/2012

Mensagem nº15

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Access365 11/10/2012, 21:57

Uai! o "tinino", "beleza", "OK" e/ou "mãozinha" sumiu... só deu pra deixar o Cláudio Más "verde", e agora? Sem ele eu não "deletaria" o arquivo!
Muitíssimo obrigado Cláudio Más, Luz e Paz!
Mas sem o Alexandre Nves, os dois tipods de mensagens ia "custar"...

Como eu faço agora?
bri-ga-du!

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº16

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Excluir arquivo externo via VBA no Access 2003

Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Re: [Resolvido]Excluir arquivo externo via VBA no Access 2003

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada