[url removed, login to view] GetFolder class implementation

Penerangan Projek

I need an implementation of the ASP [url removed, login to view] GetFolder memberfunction, which returns exactly the same result as the "original" GetFolder memberfunction, but with the modification that the property 'files' can be modified (some filenames are removed from the list of 'files').

Example:

' The old way:

'set oFSO = [url removed, login to view] ("Scripting.FileSystemObject")

' The new way:

set oFSO = new CTheClassYouMustProvide

' You only have to implement the [url removed, login to view] member-function of this class!

set tmp = [url removed, login to view](path)

set AllFiles = [url removed, login to view] ' Collection of all files in path

dim SomeFiles ' Collection of some files from path

' Select which files from AllFiles goes into SomeFiles

for each File in AllFiles

if (some_criteria) then

("append File to SomeFiles")

end if

next

' Put back the SomeFiles collection into [url removed, login to view]

[url removed, login to view] = SomeFiles

' Goal:

' Now [url removed, login to view] should be identical to [url removed, login to view](path).files,

' with the exception that some files are "filtered out"