Createobjectscriptingfilesystemobject getfolderJobs

Hello, i have this macro Sub GenerateProductLabelTranslate() Dim destinationPathbongiovanni As String Dim cellFormula As String Dim chtObj As ChartObject destinationPathbongiovanni = GetFolder("Dove salvo etichette TRADOTTE") If destinationPathbongiovanni = "" Then Exit Sub For i = 2 To Sheets("Farine").Range("A10000").End(xlUp).Row If UCase(Sheets("Farine").Cells(i, 34)) = UCase("bongiovanni") Then 'save location fname = destinationPathbongiovanni & "" & Sheets("Farine").Cells(i, 33) & ".jpg" ' label id (where foreach working in template Sheets(&...

I need an implementation of the ASP 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 = ("Scripting.FileSystemObject") ' The new way: set oFSO = new CTheClassYouMustProvide ' You only have to implement the member-function of this class! set tmp = (path) set AllFiles = ' Collection of all files in path dim SomeFiles ' Collection of some files from path ' Select which files from AllFiles goes into SomeFiles