Somebody asked for a complete overview of all the default images availible for OBIEE. I wrote a small script which make a webpage including the file locations:
'OBIEE_GRAPHS.VBS
'John Minkjan
'Http://www.obiee101.blogspot.com
'Get the all the OBIEE images
'to pipe the output into the file use: cscript OBIEE_GRAPHS.vbs > OBIEE_GRAPHS.HTML'Declarations
Redim FolderList(0)'A flat list of the directory subtree
FolderList(0) = "E:\OracleBI\web\app\res\s_oracle10"
'This part of the script walks the directory structure and stores all of the folder paths in the FolderList Array.
FolderIndex = 0
Do Until FolderIndex > Ubound(FolderList)Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderList(folderindex))If f.subfolders.count > 0 Then
For Each folder In f.subFolders
if folder.attributes <> 22 Then 'Exclude hidden system folders
redim preserve FolderList(Ubound(FolderList)+1)
FolderList(ubound(FolderList)) = folder.path
End If
Next
End If
FolderIndex = FolderIndex + 1
Loop'Set up a header for the output
wscript.echo "<BODY>"'This part of the script Works through the list of folders and outputs the data for each file
wscript.echo "<table border='1'>"
for n = 0 to ubound(FolderList)
Set fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(FolderList(n))
For Each file In f.Files
if (right(file.Name,3) = "jpg" or right(file.Name,3) = "gif") and instr(file.parentfolder,"b_mozilla_4") = 0 then
wscript.echo "<TR>"
wscript.echo "<TD>"
wscript.echo file.parentfolder &"\" & file.Name
wscript.echo "</TD>"
wscript.echo "<TD>"
wscript.echo "<IMG SRC='" & file.parentfolder &"\" & file.Name & "'/>"
wscript.echo "</TD>"
wscript.echo "</TR>"
End if
Next
Next
wscript.echo "</table>"
wscript.echo "</BODY>"
Till Next Time
3 comments:
Hi John, thanks again for this, works fine with Explorer, but if i try to open in Firefox it gives a broken link to Img source. I solved it with a little change in the script.
I replaced this :
wscript.echo "(IMG SRC='" & file.parentfolder &"\" & file.Name & "'/)"
with this one :
wscript.echo "(IMG SRC='file:///" & replace(file.parentfolder,"\","/") & "/" & file.Name & "'/)"
< > = ()
@phnuxen,
Thanks for sharing!
great post
Post a Comment