Eliminar un archivo en VBA

Usando VBA, ¿cómo puedo:

1. probar si existe un archivo, y si es así,
2. ¿bórralo?

1.) Verifique aquí . Básicamente haz esto:

Function FileExists(ByVal FileToTest As String) As Boolean
   FileExists = (Dir(FileToTest) <> "")
End Function

Te dejo que descubras los diversos errores necesarios para el manejo, pero estos son algunos de los aspectos de manejo de errores que estaría considerando:

• Verifique si se pasa una cadena vacía.
• Compruebe si hay una cadena que contenga caracteres ilegales en un nombre de archivo / ruta

2.) Cómo eliminar un archivo. Mira esto Básicamente, use el comando Kill, pero debe permitir la posibilidad de que un archivo sea de solo lectura. Aquí hay una función para ti:

Sub DeleteFile(ByVal FileToDelete As String)
   If FileExists(FileToDelete) Then 'See above          
      ' First remove readonly attribute, if set
      SetAttr FileToDelete, vbNormal          
      ' Then delete the file
      Kill FileToDelete
   End If
End Sub

Nuevamente, le dejaré el manejo de errores y nuevamente estas son las cosas que consideraría:

• ¿Debería esto comportarse de manera diferente para un directorio frente a un archivo? ¿Debería un usuario tener que indicar explícitamente que desea eliminar un directorio?

• ¿Desea que el código restablezca automáticamente el atributo de solo lectura o debe dar al usuario algún tipo de indicación de que el atributo de solo lectura está configurado?

EDITAR: Marcar esta respuesta como wiki de la comunidad para que cualquiera pueda modificarla si es necesario.

Una forma alternativa de codificar la respuesta de Brettski, con la que estoy totalmente de acuerdo, podría ser

With New FileSystemObject
    If .FileExists(yourFilePath) Then
        .DeleteFile yourFilepath
    End If
End With

Mismo efecto pero menos (bueno, ninguna en absoluto) declaraciones variables.

FileSystemObject es una herramienta realmente útil y con la que vale la pena hacerse amigable. Además de cualquier otra cosa, para la escritura de archivos de texto, a veces puede ser más rápido que la alternativa heredada, lo que puede sorprender a algunas personas. (En mi experiencia al menos, YMMV).

Probablemente me criticarán por esto, pero ¿cuál es el punto de probar la existencia si solo lo vas a eliminar? Una de mis principales preocupaciones es una aplicación que muestra un cuadro de diálogo de error con algo como "¡No se pudo eliminar el archivo, no existe!"

On Error Resume Next
aFile = "c:\file_to_delete.txt"
Kill aFile
On Error Goto 0
return Len(Dir$(aFile)) > 0 ' Make sure it actually got deleted.

Si el archivo no existe en primer lugar, ¡misión cumplida!

Lo siguiente se puede usar para probar la existencia de un archivo y luego eliminarlo.

Dim aFile As String
aFile = "c:\file_to_delete.txt"
If Len(Dir$(aFile)) > 0 Then
     Kill aFile
End If 

En VB normalmente Dires encontrar el directorio del archivo. Si no está en blanco, entonces existe y luego se usa Killpara deshacerse del archivo.

test = Dir(Filename)
If Not test = "" Then
    Kill (Filename)
End If

establezca una referencia a la biblioteca Scripting.Runtime y luego use FileSystemObject:

Dim fso as New FileSystemObject, aFile as File

if (fso.FileExists("PathToFile")) then
    aFile = fso.GetFile("PathToFile")
    aFile.Delete
End if

Aquí hay un consejo: ¿está reutilizando el nombre del archivo o planea hacer algo que requiera la eliminación de inmediato?

¿No?

Puede hacer que VBA active el comando DEL "C: \ TEMP \ scratchpad.txt" / F desde el símbolo del sistema de forma asincrónica usando VBA.Shell:

Shell "DEL" y chr (34) y strPath y chr (34) y "/ F", vbHide

Tenga en cuenta las comillas dobles (carácter ASCII 34) alrededor del nombre del archivo: supongo que tiene una ruta de red o un nombre de archivo largo que contiene espacios.

Si es un archivo grande, o está en una conexión de red lenta, disparar y olvidar es el camino a seguir. Por supuesto, nunca puedes ver si esto funcionó o no; pero reanuda su VBA de inmediato, y hay momentos en que esto es mejor que esperar a la red.

Puede establecer una referencia a la biblioteca Scripting.Runtime y luego usar FileSystemObject. Tiene un método DeleteFile y un método FileExists.

Vea el artículo de MSDN aquí .