vhLib.Macro 1 %RegisteredObject %ListOfObjects 1 Path:%String,Server:%String=$$$Server %String 1 %String 1 Directory:%String,Filename:%String 1 FileOrDirectory:%String 1 %String |*?""","") } else { #dim FirstPart As TECH.String = $piece(FileOrDirectory,":",1) #dim SecondPart As TECH.String = $piece(FileOrDirectory,":",2,$length(FileOrDirectory,":")) set Result = FirstPart_":"_$translate(SecondPart,":<>|*?""","") } quit Result ]]> 1 Directory:%String,SubPath:%String Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0 %ListOfObjects 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 Path:%String,Tijdstip:%TimeStamp 1 Path:%String,Tijdstip:%TimeStamp