Página 1 de 1

Função Kill selecionar um grupo de ficheiros e eliminar com condição

Enviado: 21 Mar 2021 às 13:34
por JOAOS86
Bom dia a todos.

Sou novo aqui no forum e neste momento, estou tentando fazer uma reciclagem de
conhecimento de vba e macro.

O meu problema é o seguinte.

Tenho uma pasta com demasiados ficheiros dos quais já não são uteis mas
para eliminar os ficheiros certos tenho uma condição!

basicamente é isto:

verificar todas as células da 1ª coluna, e se for = 0

todas as linhas que tiverem 0, na coluna 3 vai corresponder um nome do ficheiro,

esse ficheiro é para eliminar!

ex:

A1 B1
0 1234.txt
0 2345.txt
0 3456.txt

Cumprimentos a todos!

Re: Função Kill selecionar um grupo de ficheiros e eliminar com condição

Enviado: 21 Mar 2021 às 15:00
por osvaldomp
#
Experimente:
Código: Selecionar todos
Sub DeletaArquivosTxt()
 Dim c As Range
  For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   If c.Value <> "" And c.Value = 0 Then
    On Error Resume Next
      Kill "C:\MinhaPasta\" & c.Offset(, 2).Value
    On Error GoTo 0
   End If
  Next c
End Sub

Re: Função Kill selecionar um grupo de ficheiros e eliminar com condição

Enviado: 22 Mar 2021 às 15:05
por JOAOS86
Sub DeletaArquivosTxt()
Dim c As Range
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row) pode explicar esta linha ?
If c.Value <> "" And c.Value = 0 Then
On Error Resume Next
Kill "C:\MinhaPasta\" & c.Offset(, 2).Value
On Error GoTo 0
End If
Next c
end sub

Não funcionou.

montei um exemplo igual ao dado em cima e não eliminou os ficheiros

o objectivo é ler o 0 e fazer a correspondência o numero do txt e eliminar , e fazer em todos os 0 em ciclo!

Re: Função Kill selecionar um grupo de ficheiros e eliminar com condição

Enviado: 22 Mar 2021 às 16:23
por osvaldomp
JOAOS86 escreveu: 21 Mar 2021 às 13:34 ... todas as células da 1ª coluna, e se for = 0
todas as linhas que tiverem 0, na coluna 3 vai corresponder um nome do ficheiro,
1. confirme se no código que você está testando, em lugar de "MinhaPasta" está o nome correto da pasta/sub pasta que contém os arquivos a serem deletados;
2. conforme o seu critério acima, verifique se os nomes dos arquivos existentes na coluna C da planilha ativa existem na pasta de interesse (item 1 acima)

Se for o caso, disponibilize uma amostra do seu arquivo Excel com 3 ou 4 linhas com dados e informe o caminho completo dos arquivos.

Re: Função Kill selecionar um grupo de ficheiros e eliminar com condição

Enviado: 07 Abr 2021 às 16:39
por JOAOS86
Coluna A --------- colunaC
0 --------- 15854-01
0 --------- 15995-02
0 --------- 15300-03
0 --------- 15400-01
1 --------- 15500-02
2 --------- 15501-03
3 --------- 15502-01
até linha A2000 e C2000

diretório

C:\Users\joao P\Desktop\minhapasta

qual é o formato da colunaA e o da colunaC , numero, texto ?