'this is pretty messy and i havent tried it, there is a lot i dont like about it. not sure if the IE stuff will update, perhaps there is a .Refresh method that needs to be called after the .Navigate. hopefully it will give you somewhere to start, or perhaps more questions...oh, i think this will only work on an RM machine ;-)
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set dicFolders = CreateObject("Scripting.Dictionary")
'get folders in memory
Set tsINI = FSO.OpenTextFile("c:\folderlist.txt", 1, False)
Do While Not tsINI.AtEndOfStream
sLine = ""
sLine = UCase(Trim(tsINI.ReadLine))
If sLine <> "" Then
If Not dicFolders.Exists(sLine) Then
dicFolders.Add sLine, "1"
End If
End If
Loop
tsINI.Close
Set tsINI = Nothing
'setup IE???
Set appIE = CreateObject("InternetExplorer.Application")
appIE.ToolBar = False
appIE.StatusBar = False
appIE.Visible = True
appIE.FullScreen = true
appIE.Height = Me.Height
appIE.Width = Me.Width
appIE.Left = 50
appIE.Top = 50
Call sDisplay(dicFolders)
Sub sDisplay(ByVal dicPassed)
Dim aFolder, aFile, objFolder
For Each aFolder In dicPassed
If FSO.FolderExists(aFolder) Then
Set objFolder = FSO.GetFolder(aFolder)
For Each aFile In objFolder.Files
If LCase(Right(aFile.Name, 4)) = ".jpg" Then
'hmm do something now
Call displayPic(aFile)
Wscript.Sleep 5000
End If
Next
Set objFolder = Nothing
End If
Next
Call sDisplay(dicPassed)
End Sub
Sub displayPic(ByRef aFile)
appIE.Navigate aFile.Path
End Sub