APAGAR CONTEUDO DE PASTA

USUARIO.EXCLUIDOS 04/09/2007 08:59:34
#233979
Tenho um programa que gera vários arquivos dentro de uma pasta específica. Já desenvolvi uma rotina de backup onde diariamente ele zipa os arquivos gerados por data em uma pasta, e transfere pra outra de backup. Gostaria de saber um comando pra apagar o conteúdo dessa pasta de tempos em tempos pois uso o skill, mas com ele tenho que especificar o caminho exato e nome do arquivo. Gostaria de saber a sintaxe para apagar tudo, inclusive subpastas se houver. Quero apagar tudo que tiver no interior dessa pasta (arquivos e subpastas) e deixá-la pronta para o uso
USUARIO.EXCLUIDOS 04/09/2007 09:05:57
#233981
Amigo...

Vá em Project >>> References
Marque a referência Microsoft Scripting Runtime.


E faça o Seguinte

Dim objFSO as New FileSystemObject
'True serve para forçar a exclusão da pasta
objFSO.DeleteFolder "CaminhoDaPasta", True
USUARIO.EXCLUIDOS 04/09/2007 14:24:23
#234059

MARCELO..esse comando apaga a pasta né?

vc pode fazer tb com um filelistbox assim:

FileListBox.Path = "CaminhodaPasta"

For X = 0 to FileListBox.ListCount
Kill FileListBox.Path & "\" & FileListBox.List(X)
Next X

Creio q funciona tb!!

Boa sorte e sucesso!
USUARIO.EXCLUIDOS 04/09/2007 14:30:48
#234061
Sinkertec,

Apaga a pasta sim!

Esse seu jeito funciona Sinkertec, porém é necessário fazer o loop que el não queria né... e se tiver SubPastas eu creio que não vai deletar as subpastas, mas sim somente os arquivos.


Do jeito que postei, ele só precisará recriar a pasta depois através do MkDir
USUARIO.EXCLUIDOS 04/09/2007 14:36:42
#234063

Ah tá...ele apaga a pasta e o conteúdo dela..mesmo sendo subpastas..

entendi...e outra..qq coisa..basta criar novamente a pasta, ficando vazia..

valew!!
USUARIO.EXCLUIDOS 04/09/2007 14:38:58
#234064
Citação:

Ah tá...ele apaga a pasta e o conteúdo dela..mesmo sendo subpastas..

entendi...e outra..qq coisa..basta criar novamente a pasta, ficando vazia..



Isso mesmo!! Nada a acrescentar.
USUARIO.EXCLUIDOS 04/09/2007 16:42:26
#234113
Marcelo, o que será quer fiz de errado? Tá dando um erro runtime (70) e não apaga.
USUARIO.EXCLUIDOS 04/09/2007 16:44:16
#234114

NETO

coloque aki sua sintaxe..
principalmente onde vc pega o path da pasta, pode ser lá o erro!
USUARIO.EXCLUIDOS 04/09/2007 16:58:01
#234123
"Run-time error '70: Permission denied"

Bom, provavelmente os arquivos dentro desta pasta estão sendo utilizados, e por isso não podem ser excluídos.
Ou talvez vc realmente não tenha permissão de exclusão do arquivo.
Ou até mesmo a pasta que está tentando deletar não exista!


Mas de qualquer forma, vc colocou o parâmetro Force como true na chamada do método DeleteFolder ??
USUARIO.EXCLUIDOS 05/09/2007 08:35:26
#234180
Sinkertec, a sintaxe ficou assim:

Private Sub Command1_Click()
Dim objFSO As New FileSystemObject
'True serve para forçar a exclusão da pasta
objFSO.DeleteFolder "C:\CAIXA\Movimento", True
End Sub


Mas continua dando erro de permissão.
USUARIO.EXCLUIDOS 05/09/2007 08:49:33
#234182

Tem algum arquivo desta pasta q esta aberto ou pode estar aberto?
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar