Buenas estoy usando estos codigos.

en un boton tengo puesto esto

Código:

Private Sub Borrar_Click()
   Delete (c:\prueba\), True
 
  exit sub
End Sub

Có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

Pero cuando el directorio esta Vacio me salta el error de que no existe el archivo
y no me borra la carpate

¿Como podria borrar la carpeta aunque no tenga archivos dentro?

un saludo..

Prueba DeleteFolder

Iniciado por Pedro Luis

Prueba DeleteFolder

el problema es cuando entra en este codigo..

Código:

Public Sub Delete(DirPath As String, DelDir As Boolean)
On Error GoTo error
Kill DirPath$ & "*.*" ' Borra los archivos
If DelDir = True Then 'Revisa si esta en TRUE
RmDir DirPath$ ' Borra la carpeta
End If
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub

1.- Borra todos los archivos que existan en la carpeta con el Kill DirPath$ & "*.*"
2.- Revisa si el borrar carpeta ò Directorio es TRUE si es true Borra la carpeta

Pues el error lo da en el primer punto SI el directorio esta vacio...
entonces como se puede hacer alguna condicion que si esta vacio NO borre y salte al punto 2


un saludo

Bueno para el que este interezado ya lo he solucionado y el codigo quedaria asin...

Código:

Public Sub Delete(DirPath As String, DelDir As Boolean)
On Error GoTo error
If Dir("DirPath$") = "" Then 'Comprueba si el directorio esta vacio
   Kill DirPath$ & "*.*" ' Borra los archivos
End if
If DelDir = True Then 'Revisa si esta en TRUE
   RmDir DirPath$ ' Borra El directorio
End If
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub