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