Crear un macro para eliminar arhcivos
Quiero generar una macro en excel de forma tal que al ejecutarlo se borren tres archivos dos .xls y un .doc
Los nombre de archivos "hola.xls" "como va.xls" y "chau.doc"
No sabría como hacer para generar una sola macros para que borre los tres de una vez, trate con uno, mi entento fue:
Sub FileExists()
Dim fso
Dim file As String
file = "C:\hola.xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(file) Then
MsgBox file & " was not located.", vbInformation, "File Not Found"
Else
MsgBox file & " has been located.", vbInformation, "File Found"
End If
End Sub
Sub DeleteFile()
Dim fso
Dim file As String
file = "C:\hola.xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
fso.DeleteFile file, True
Else
MsgBox file & " does not exist or has already been deleted!" _
, vbExclamation, "File not Found"
End If
End Sub
Esto funciona pero no se como hacer para que lo busque en todo el disco, solo lo borra en C:\hola.xls, por ejemplo si esta en el escritorio no lo borra.
En resumen:
¿Cómo armar una macro que busque archivos especificando el nombre, sin especificar su ubicación y los elimine?
¿Cómo hacer un macro que elimine los tres archivos?
La idea seria que cuando se abra el archivo se auto ejecute el macro y se ejecute el macro para proceder a la eliminación de archivos si y solo si la fecha actual es mayor a una fecha determinada especifica (por ejemplo 25/10/2010)
Los nombre de archivos "hola.xls" "como va.xls" y "chau.doc"
No sabría como hacer para generar una sola macros para que borre los tres de una vez, trate con uno, mi entento fue:
Sub FileExists()
Dim fso
Dim file As String
file = "C:\hola.xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(file) Then
MsgBox file & " was not located.", vbInformation, "File Not Found"
Else
MsgBox file & " has been located.", vbInformation, "File Found"
End If
End Sub
Sub DeleteFile()
Dim fso
Dim file As String
file = "C:\hola.xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
fso.DeleteFile file, True
Else
MsgBox file & " does not exist or has already been deleted!" _
, vbExclamation, "File not Found"
End If
End Sub
Esto funciona pero no se como hacer para que lo busque en todo el disco, solo lo borra en C:\hola.xls, por ejemplo si esta en el escritorio no lo borra.
En resumen:
¿Cómo armar una macro que busque archivos especificando el nombre, sin especificar su ubicación y los elimine?
¿Cómo hacer un macro que elimine los tres archivos?
La idea seria que cuando se abra el archivo se auto ejecute el macro y se ejecute el macro para proceder a la eliminación de archivos si y solo si la fecha actual es mayor a una fecha determinada especifica (por ejemplo 25/10/2010)
2 Respuestas
Respuesta de angelcrisnor
1
Respuesta
1