Opgelet : class is niet TECH.Mockable wegens specifieke Fake implementatie vhLib.Macro 1 %RegisteredObject %ListOfObjects 1 Path:%String,Server:%String=$$$Server %String 1 %String 1 Directory:%String,Filename:%String 1 Filename:%String %String |*?""","") ]]> 1 Directory:%String,SubPath:%String Directory:%String,FileMask:%String %ResultSet Geef de bestanden die voldoen aan de filespecificatie uit de lijst van opgegeven directories. specifiek met $zsearch geschreven om dat deze reeds na 1 resultaat de controle teruggeeft aan de code ipv alle bestanden eerst te enumereren wat belangrijk is indien het netwerk directories betreft DirectoryList:%ListOfDataTypes,FileSpecificatie:%String,Aantal:%Integer=0 TECH.Iterator Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0,NumberOfFiles:%Numeric=0 %ListOfObjects 0) { Set ContinueLoop = (..List.Count() < NumberOfFiles) } } } quit ..List ]]> Geeft lijst van FileInfo-objecten terug AddSubDir loopt recursief door alle onderliggende subdirs Directory:%String,AddSubDir:%Boolean=1 %ListOfObjects %New method to provide notification that a new instance of an object is being created.

If this method returns an error then the object will not be created.

It is passed the arguments provided in the %New call. When customizing this method, override the arguments with whatever variables and types you expect to receive from %New(). For example, if you're going to call %New, passing 2 arguments, %OnNew's signature could be:

Method %OnNew(dob as %Date = "", name as %Name = "") as %Status]]> FullName:%String,rset:%ResultSet initvalue:%CacheString 1 1 %Status %Query Directory:%String,FileMask:%String 1 %Status 1 GetFilesExecute %Status 1 GetFilesExecute %Status 1 FromPath:%String,ToPath:%String 1 FromPath:%String,ToPath:%String 1 Path:%String,Tijdstip:%TimeStamp=$$$CurrentTimeStamp 1 Path:%String,Tijdstip:%TimeStamp=$$$CurrentTimeStamp