How to use the class
Dim c
As Variant
Dim recent As
clsFileFolderCons
Set recent = New
FileFolderCons
recent.AddConsumedItem "c:\sample1.txt"
recent.AddConsumedItem "c:\sample2.txt"
recent.ValidateConsumedItems
' validate file existence
' list all the files
witch exist
For Each c
In recent.ConsumedItems
Debug.Print c
Next
recent.ClearContents '
clear the file collection
recent.AddConsumedItem "c:\demo.txt"
' we can continue to use the collection
' as it in its initial state
[ FileFolderCons class ] [ Lets Begin ] [ The final Code ] [ How to use the class ]
|