Dim DoDelete
Dim inputFRSRoot
Dim outputFRSRoot DoDelete = False ' False = Test Mode, True = Actually Delete the Files
inputFRSRoot = "C:\Program Files (x86)\Business Objects\BusinessObjects Enterprise 12.0\FileStore\Input"
outputFRSRoot = "C:\Program Files (x86)\Business Objects\BusinessObjects Enterprise 12.0\FileStore\Output" 'Declare CMS logon variables
Dim CMS
Dim Usnername
Dim Password
Dim Authtype CMS = "localhost"
Username = "Administrator"
Password = ""
Authtype = "secEnterprise" 'Declare variables for Enterprise Session
Dim oEnterpriseSessionMgr
Dim ceSession
Dim oInfoObjects
Dim oInfoObjects2
Dim boServer1Admin
Dim boServer2Admin ' File IO stuff
Dim objFSO
Dim outputFile 'Open the outputFile for logging.
Set objFSO = CreateObject("Scripting.FileSystemObject")
set outputFile = objFSO.OpenTextFile("C:\output.log",8,True) outputFile.WriteLine("-------- Starting Script --------") 'Load the Enterprise Session Manager
Set oEnterpriseSessionMgr = CreateObject("CrystalEnterprise.SessionMgr") 'Logon to the CMS and create iStore object
Set ceSession = oEnterpriseSessionMgr.Logon(Username, Password, CMS, Authtype)
Set iStore = ceSession.Service("","InfoStore") outputFile.WriteLine("Input FRS Root = " & inputFRSRoot)
outputFile.WriteLine("Output FRS Root = " & outputFRSRoot) ' Now that we have the root folders - we need to loop through them and drill down to the deepest level
' The logic used is:
' - Is there a file? If not, is there a sub-folder.
' - If there is a sub-folder - then go into it
' - If there is a file - then look at the last folder name - that will be the SI_ID
' - Check if an object with that SI_ID exists. If it does - all is well - if not - flag for deletion
' - The deletion will go up folder by folder until one of three conditions occur.
' - 1. A file exists in the folder.
' - 2. More than 1 sub-folder
' - 3. The name of the current folder is either Input, or Output Dim finalOutput
Dim finalInput ' Scan the Input FRS
outputFile.WriteLine("Starting Input FRS")
finalInput = CheckAndDelete(DoDelete, iStore, objFSO, outputFile, inputFRSRoot)
outputFile.WriteLine("") ' Scan the Output FRS
outputFile.WriteLine("Starting Output FRS")
finalOutput = CheckAndDelete(DoDelete, iStore, objFSO, outputFile, outputFRSRoot) outputFile.WriteLine("All Done") ' Clean everything up
outputFile.close
ceSession.Logoff()
Set oInfoObjects = Nothing
Set oInfoObject = Nothing
Set iStore = Nothing
Set ceSession = Nothing
Set oEnterpriseSessionMgr = Nothing
Function CheckAndDelete(DoDelete, iStore, objFSO, outputFile, fileRoot)
Dim boFolder
Dim boFile
Dim folderCount
Dim fileCount
Dim boSubFolder
Dim DeleteThisFolder
Dim boInfoObjects
' Set it initially to not delete the folder
CheckAndDelete = false Set boFolder = objFSO.GetFolder(fileRoot) ' Get a count of the files in this folder, and a count of the sub-folders
fileCount = boFolder.Files.Count ' Are there files here - then we need to check if the matching SI_ID exists
if fileCount > 0 then
Set boInfoObjects = iStore.Query("select SI_ID from CI_INFOOBJECTS, CI_SYSTEMOBJECTS, CI_APPOBJECTS where SI_ID = " & boFolder.Name) ' If the count is 0 - then this is an orphan
if boInfoObjects.count = 0 then
outputFile.WriteLine("Orphaned File with ID " & boFolder.Name & " found at " & fileRoot)
' Delete the files in this folder
For Each boFile in boFolder.Files
if DoDelete = True then
outputFile.WriteLine("Deleting File: " & fileRoot & "\" & boFile.Name)
objFSO.DeleteFile fileRoot & "\" & boFile.Name, true
Else
outputFile.WriteLine("In Test Mode - Would have deleted File: " & fileRoot & "\" & boFile.Name)
End If
Next ' Set the delete flag to true to tell the function one up the recursive stack to remove this folder
CheckAndDelete = true
end if
end if For Each boSubFolder in boFolder.SubFolders
'outputFile.WriteLine(boSubFolder.Name)
DeleteThisFolder = CheckAndDelete(DoDelete, iStore, objFSO, outputFile, fileRoot & "\" & boSubFolder.Name)
if DeleteThisFolder = true then
if DoDelete = True then
outputFile.WriteLine("Deleting Folder: " & fileRoot & "\" & boSubFolder.Name)
objFSO.DeleteFolder(fileRoot & "\" & boSubFolder.Name)
Else
outputFile.WriteLine("In Test Mode - Would have deleted Folder: " & fileRoot & "\" & boSubFolder.Name)
End If
' Now check and see if there are any more sub-folders in this folder - or if the name of the folder is Input or Output.
folderCount = boFolder.SubFolders.Count
if folderCount = 0 then
if boFolder.Name = "Input" or boFolder.Name = "Output" then
CheckAndDelete = false
else
CheckAndDelete = true
end if
end if
end if
Next
End Function | 
