EXCLUIR ARQUIVOS
Bom dia pessoal blz. Alguém pode mim ajuda com uma rotina, é o seguinte tenho varios arquivos com extensão zip em uma determinada pasta. Gostaria de quando clicar no butão excluir todos esses arquivos zip da pasta fosse apagado.
Agradeço.
Agradeço.
Meu caro, veja esses links..pode te ajudar
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=3194
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=6744
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=3506
AÃ depois manda ae!! abraços e boa sorte
Olá SINKERTEC, teste mais exluir todos os arquivos com qualquer extensão. Tem alguma maneira de excluir apenas os com extensão zip.
Bom, cara...
Basicamente ficaria assim:
[txt-color=#0000f0]Private Sub [/txt-color]Command1_Click()
[txt-color=#0000f0]Kill[/txt-color] ([Ô]C:\Documents and Settings\Busca certo\Meus documentos\zips\*.zip[Ô]) [txt-color=#007100][ô]Entre os parênteses coloque o caminho de sua pasta. A minha pasta é [Ô]C:\Documents and Settings\Busca certo\Meus documentos\zips\[Ô] e meu [Ô]qualquer[Ô] arquivo é [Ô]*.zip[Ô][/txt-color]
MsgBox [Ô]ExcluÃdo com sucesso[Ô], vbInformation, [Ô]Excluindo...[Ô]
[txt-color=#0000f0]End Sub[/txt-color]
Claro, se você quiser um aplicativo mais poderoso, eu aconselho utilizar uma caixa de diálogo que permite ao usuário escolher a pasta e os arquivos que ele quiser excluir.
Valeu
Basicamente ficaria assim:
[txt-color=#0000f0]Private Sub [/txt-color]Command1_Click()
[txt-color=#0000f0]Kill[/txt-color] ([Ô]C:\Documents and Settings\Busca certo\Meus documentos\zips\*.zip[Ô]) [txt-color=#007100][ô]Entre os parênteses coloque o caminho de sua pasta. A minha pasta é [Ô]C:\Documents and Settings\Busca certo\Meus documentos\zips\[Ô] e meu [Ô]qualquer[Ô] arquivo é [Ô]*.zip[Ô][/txt-color]
MsgBox [Ô]ExcluÃdo com sucesso[Ô], vbInformation, [Ô]Excluindo...[Ô]
[txt-color=#0000f0]End Sub[/txt-color]
Claro, se você quiser um aplicativo mais poderoso, eu aconselho utilizar uma caixa de diálogo que permite ao usuário escolher a pasta e os arquivos que ele quiser excluir.
Valeu
Gostaria de enviar uma msgbox antes de excluir. Como faço para fazer uma msgbox da seguinte maneira.
Confirmar exclusão do backup até o mês de janeiro
[2 Arquivos(s)]
até o mês => ficar atualizando mensalmente cada mês.
Contar a quantidade de arquivo com extensão zip da pasta backup.
Agradeço.
Confirmar exclusão do backup até o mês de janeiro
[2 Arquivos(s)]
até o mês => ficar atualizando mensalmente cada mês.
Contar a quantidade de arquivo com extensão zip da pasta backup.
Agradeço.
Aviso = Msgbox ([Ô]Confirma Exclusão dos Arquivos?[Ô], vbquestion + vbyesno, [Ô]Confirmação de Exclusão[Ô]
If Aviso = 6 then
[ô]Excluir
else
[ô]Não Excluir
end if
coloca isso antes do comando de exclusão, e os comandos dentro ali do excluir
Veja ae
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=6017
Gostaria que o msgbox ficasse +ou- desse jeito.
Deixa eu explicar melhor pessoal, e seguinte quando eu compactar os arquicos que vai ficar em uma determinada pasta todo arquivo vai ter um nome diferente e com data diferente tambem.
Exemplo
Paulo-02012010
Pedro - 03012010
Esses dois são do mês de janeiro 02 e 03
João - 02022010
Paula - 03022010
Esses são já do mês atual Fevereiro
Quando eu clicar no butão excluir, o sistema só pode excluir os arquivo do mês anterior e dizer quantos arquivos vão ser excluido. No caso existe dois arquivo do mês de janeiro.
mostrar uma mensagem conforme arquivo anexado anterior
Exemplo
Paulo-02012010
Pedro - 03012010
Esses dois são do mês de janeiro 02 e 03
João - 02022010
Paula - 03022010
Esses são já do mês atual Fevereiro
Quando eu clicar no butão excluir, o sistema só pode excluir os arquivo do mês anterior e dizer quantos arquivos vão ser excluido. No caso existe dois arquivo do mês de janeiro.
mostrar uma mensagem conforme arquivo anexado anterior
JPAULO101, boa tarde.
Para fazer bem legal esta rotina, de uma estudada no objeto File System Object, FSO. Com ele você consegue contar os arquivos, fazer filtro entre os arquivos e dai fazer as comparações e verificvações com msgbox, ok????
Segue um artgo do macoratti sobre o assunto:
Usando o FileSystemObject - FSO - Tratando arquivos e diretórios.
Dê uma estudada ai e depois você retorna ok???
Para fazer bem legal esta rotina, de uma estudada no objeto File System Object, FSO. Com ele você consegue contar os arquivos, fazer filtro entre os arquivos e dai fazer as comparações e verificvações com msgbox, ok????
Segue um artgo do macoratti sobre o assunto:
Usando o FileSystemObject - FSO - Tratando arquivos e diretórios.
Dê uma estudada ai e depois você retorna ok???
[ô]Simples a msgbox
dim ans as String
ans = MsgBox([Ô]Lançar Como Fiado?[Ô], vbQuestion + vbYesNo, [Ô]Log Off[Ô])
If ans = vbYes Then
[ô]btnSave.Enabled = True
deleta arquivo
Else
[ô]nao deleta arquivo
end if
dim ans as String
ans = MsgBox([Ô]Lançar Como Fiado?[Ô], vbQuestion + vbYesNo, [Ô]Log Off[Ô])
If ans = vbYes Then
[ô]btnSave.Enabled = True
deleta arquivo
Else
[ô]nao deleta arquivo
end if
Tópico encerrado , respostas não são mais permitidas