Load GUI Repositories

Set FSO = CreateObject("Scripting.FileSystemObject")
For GuiFile in GUICollection
'Check if file exists
 boolRC = FSO.FileExists(GuiFile)
 If Not boolRC Then
 'Error-handling, reporting
 Exit Function
 End If
'Check if GUI repository is already loaded
 intPos = RepositoriesCollection.Find(GuiFile)
 If intPos = -1 Then
 RepositoriesCollection.Add GuiFile
 End If
Next
Set FSO = Nothing

Unload GUI Repositories

For GuiFile in GUICollection
'Check if GUI repository is really loaded
 intPos = RepositoriesCollection.Find(GuiFile)
 If intPos <> -1 Then
 RepositoriesCollection.Remove GuiFile
 End If
Next