Saltar al contenido

ELIMINAR ARCHIVOS DE UNA CARPETA

publicado

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

Featured Replies

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.