Este fórum está sendo desativado

[leoRaposo]

Gostaria de solucionar uma duvida com relação à excluir arquivos em uma pasta..
Sei que a função Kill apaga todos os arquivos de uma pasta..
Ex.: Kill "C:\Users\Leandro.Ferreira\Desktop\Nova pasta\*"
Mas gostaria de uma formula que exclua apenas 1 (um) arquivo por vez (Já que nesta pasta possuem vários outros arquivos).
De preferencia o mais recente da pasta.
Podem me ajudar ?

[babdallas]

Tente isso

Código: Selecionar todos

Option Explicit
'Código de OsvaldoMp em outro fórum. Adaptado por Bruno Abdalla de Souza (babdallas)
'para uma dúvida do Fórum do Guru do Excel em 20/05/2018
Sub DeletaArquivoMaisRecente()
    Dim arqSys As Object
    Dim objArq As Object
    Dim minhaPasta
    Dim nomeArq As String
    Dim dataArq As Date
    Dim strLinkAtual As String
          Const Diret As String = "C:\Users\Bruno\Desktop"
          Set arqSys = CreateObject("Scripting.FileSystemObject")
          Set minhaPasta = arqSys.GetFolder(Diret)
          dataArq = DateSerial(1900, 1, 1)
    For Each objArq In minhaPasta.Files
        If objArq.Path <> ThisWorkbook.FullName And Left(objArq.Path, 1) <> "~" Then
            If objArq.DateLastModified > dataArq Then
                dataArq = objArq.DateLastModified
                nomeArq = objArq
            End If
        End If
    Next objArq
    
    Kill objArq
End Sub