Como deletar arquivos usando VBA

Este post foi originalmente publicado em https://officevbavsto.blogspot.com/2011/03/quickshot-deletando-arquivos.html.

A classe FileSystemObject oferece várias rotinas para manipular arquivos. Entre eles, está a opção de apagá-los.

Veja abaixo um exemplo:

Sub DeletaArquivo()

  Dim fso
  Dim file As String
  Dim arquivo as String
  
  arquivo = "C:\teste.xls" 'nome do arquivo que deseja deletar
  Set fso = CreateObject("Scripting.FileSystemObject")
  
  If fso.FileExists(arquivo) Then ' Aqui é verificado se o arquivo existe
     fso.DeleteFile arquivo , True 'Aqui o arquivo é deletado se o mesmo existir
  Else
     MsgBox arquivo & " não existe ou já foi deletado!" , vbExclamation, "Office, VBA e VSTO"
  End If
  
End Sub

Créditos

Photo by u j e s h on Unsplash