Buenas estoy usando estos codigos.
en un boton tengo puesto esto
Código:Private Sub Borrar_Click() Delete (c:\prueba\), True exit sub End SubPero cuando el directorio esta Vacio me salta el error de que no existe el archivoCódigo:Public Sub Delete(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
y no me borra la carpate
¿Como podria borrar la carpeta aunque no tenga archivos dentro?
un saludo..