Public Sub DelFilesInDir(DirPath As String, DelDir As Boolean) On Error GoTo error Kill DirPath$ & "*.*" If DelDir = True Then RmDir DirPath$ End If Exit Sub error: MsgBox Err.Description, vbExclamation, "Error" End Sub
Si no estoy equivocado eseso, pero tambien éste creo que era si estaban todos en la misma carpeta... Bien no recuerdo :shocked:
Saludos
En línea
Si nos quedamos en este mundo, que no sea con hambre...
Autor
En línea
