diff --git a/Source/GUIBase/uViewDocumentos.pas b/Source/GUIBase/uViewDocumentos.pas
index 9cd1a886..3579cb52 100644
--- a/Source/GUIBase/uViewDocumentos.pas
+++ b/Source/GUIBase/uViewDocumentos.pas
@@ -158,7 +158,8 @@ end;
 
 procedure TfrViewDocumentos.actEliminarTodoExecute(Sender: TObject);
 begin
-   Deltree(Directorio, True);
+   if DirectoryExists(Directorio) then
+      Deltree(Directorio, True);
    FListaFicheros.Clear;
    FDirectorio := Null;
    RefrescarVisualizador;