ELIMINAR ARCHIVOS DE UNA CARPETA

[NINO]

ALGUIEN ME PUEDE AYUDAR ¿COMO SE PUEDE ELIMINAR ARCHIVOS DE IMAGENES, DOCUMENTOS Y OTRO DESDE UNA HOJA DE CALCULO CON BOTON UTILIZANDO MACROS?

[Gerson Pineda]

Hola

Realmente es muy simple, utiliza el comando VBA.Kill

Para eliminar un archivo
VBA.Kill "ruta\archivo.xlsx"

Para eliminar archivos
VBA.Kill "ruta\*.xlsx"

Debes indicar la ruta completa y extension

 

Saludos!

[NINO]

Me gusta el código muchas gracias entendí bien y hice esta rutina

Sub Eliminar_Usuarios()
    Dim ArchivoImagen As String
    Dim Codigo As Long
    
On Error GoTo Error
    
        ArchivoImagen = ThisWorkbook.Path & "\Imágenes\Sexo\*.*"
        If dir(ArchivoImagen) <> "" Then
            Kill ArchivoImagen
        End If
     
    Exit Sub
Error:
     
    ThisWorkbook.Save
    
End Sub