Eliminación de un archivo en VBA

Question

El uso de VBA, ¿cómo puede I:

1. comprobar si existe un archivo, y si es así,
2. eliminarla?

Answer 1

1.) Compruebe here. Básicamente hacer esto:

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

Lo dejo a usted para averiguar los distintos gestión de errores es necesario, pero estas son algunas de las cosas de tratamiento de errores que estaría considerando:

• Comprobar si hay una vacía cadena que se pasa.
• Compruebe si hay una cadena que contiene caracteres no válidos en un nombre de archivo/path

2.) ¿Cómo borrar un archivo. Mire this. Básicamente use el comando Kill pero necesita permitir la posibilidad de que un archivo sea de solo lectura. Esto es una función para usted:

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 

Una vez más, voy a dejar el manejo de errores a que una y otra vez estas son las cosas que yo consideraría:

• Si esto comportarse de manera diferente para un directorio vs . ¿un archivo? ¿Debería un usuario tener que indicar explícitamente que quiere eliminar un directorio?

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

---

EDIT: Marcado esta respuesta como wiki de la comunidad por lo que cualquiera puede modificarlo si es necesario.

Answer 2

En VB es normalmente Dir para encontrar el directorio del archivo. Si no está en blanco, entonces existe y luego use Kill para deshacerse del archivo.

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

Answer 3

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

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

Answer 4

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

Consulte el artículo de MSDN here.

Answer 5

Probablemente me llame la atención por esto, pero ¿de qué sirve probar si solo quieres borrarlo? Una de mis principales preocupaciones es una aplicación que arroja un cuadro de diálogo de error con algo así 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!

Answer 6

establecer una referencia a la biblioteca Scripting.Runtime y luego utilizar el FileSystemObject:

Dim fso as New FileSystemObject, aFile as File 

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

Answer 7

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

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

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

FileSystemObject es una herramienta realmente útil y vale la pena familiarizarse con ella. Aparte de todo lo demás, para la escritura de archivos de texto en realidad puede ser más rápido que la alternativa heredada, lo que puede sorprender a algunas personas. (En mi experiencia al menos, YMMV).

Answer 8

Aquí hay un consejo: ¿está volviendo a utilizar el nombre del archivo, o está planeando hacer algo que requiere la eliminación de inmediato?

¿No?

Puede obtener VBA para disparar el comando DEL "C: \ TEMP \ scratchpad.txt"/F de la línea de comandos de forma asíncrona usando VBA.Shell:

Shell "DEL" & CHR (34) & strPath & CHR (34) & "/ F", vbHide

Nota las comillas dobles (caracteres ASCII 34) alrededor del nombre de archivo: Asumo que tienes una ruta de red, o una larga nombre de archivo que contiene espacios.

Si se trata de un archivo grande o de una conexión de red lenta, ignórelo es el camino a seguir. Por supuesto, nunca se puede ver si esto funcionó o no; pero reanuda su VBA inmediatamente, y hay momentos en que esto es mejor que esperar a la red.