Creo que es ésto...
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