Index: vhDEV.mac.rou
===================================================================
diff -u -r29059 -r35471
--- vhDEV.mac.rou	(.../vhDEV.mac.rou)	(revision 29059)
+++ vhDEV.mac.rou	(.../vhDEV.mac.rou)	(revision 35471)
@@ -220,17 +220,17 @@
  . Else  Set:Optie'["X" @RetRef@($S(Optie["A":"F",1:"")_$P(rec,"\",1))=$P(rec,"\",3)_"\"_$TR($P(rec,"\",5)," ","\")
  Quit
   
-DISPDIR(Dir,WildCard,Optie,DelDat) 
+DISPDIR(Dir,WildCard,Optie,DelDat,HideMessage = 0) 
  ;Optie : "X" ; De bestanden ouder dan DelDat effectief verwijderen
  ;DelDat : Bestanden ouder dan DelDat (arbeidsdagen) worden verwijderd.
  New File,Files,Y
  Set Optie=$G(Optie)
  Do SCANDIR(Dir,$G(WildCard),$NA(Files),Optie,$G(DelDat))
- If $D(Files)#10 Do  Quit ""
+ If $D(Files)#10 && '(HideMessage > 0) Do  Quit ""
  .Set Txt(1)="Fout bij lezen map "_Dir
  .Set Txt(2)="Fout : "_Files
  .Set Txt=$$WILD^vhTXTPOP("C;C","Fout","Txt")
- If '$D(Files) Do  Quit ""
+ If '$D(Files) && '(HideMessage > 0) Do  Quit ""
  .Set Txt(1)="Geen documenten gevonden die voldoen"
  .Set Txt(2)="aan de opgegeven wildcard "_WildCard
  .Set Txt(3)="in de map "_Dir
@@ -242,3 +242,4 @@
  Quit File
  
 
+