Index: vhDEV.mac.rou
===================================================================
diff -u -r47539 -r53869
--- vhDEV.mac.rou	(.../vhDEV.mac.rou)	(revision 47539)
+++ vhDEV.mac.rou	(.../vhDEV.mac.rou)	(revision 53869)
@@ -219,6 +219,23 @@
  .. S:X @RetRef=$G(@RetRef)_"-6;Unable to delete "_FileNm_"~" 
  . Else  Set:Optie'["X" @RetRef@($S(Optie["A":"F",1:"")_$P(rec,"\",1))=$P(rec,"\",3)_"\"_$TR($P(rec,"\",5)," ","\")
  Quit
+
+SCANDIR2(Dir,WildCard,RetRef,Optie,Days) 
+ New list,rec,X,FileNm,Datum
+ Set list=""       
+ Set Optie=$G(Optie)
+ Set:$G(Dir)="" Dir=$$DIRUSER()
+ Do GETFILES(Dir,.list,WildCard,"FE"_$S(Optie["L":"L",1:""))
+ Set FileNm=""
+ Set DelDat=(+$H-Days)
+ For  Set FileNm=$O(list(FileNm)) Quit:FileNm=""  Do
+ . Set rec=list(FileNm)
+ . Set Datum=$TR($P($P(rec,"\",5)," ",1),"-","/")
+ . If $G(DelDat),($$INTDATE^vhLib.DataTypes(Datum,"DS")<DelDat) Do
+ .. S X=$$DELFILE(FileNm)
+ .. S:X @RetRef=$G(@RetRef)_"-6;Unable to delete "_FileNm_"~" 
+ . 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,HideMessage = 0) 
  ;Optie : "X" ; De bestanden ouder dan DelDat effectief verwijderen
@@ -240,4 +257,3 @@
  .Set Y=Y+1,Y(Y)=$S(Optie["A":$E(File,2,99),1:File)_"`"_$P(Files(File),"\",2)
  Set File=$$WILD^vhPOPUP("C;C","OK2-","Selecteer bestand",.Y)
  Quit File
-