Option Explicit
' Author:      Twily                                                 2015
' Description: Generate a list of images from a specific path to use with
'              the homepage-sidebar.html (this includes subdirectories).
' Website:     http://twily.info/
 
Dim strPath,strData,tmpList,objFSO,objTS,objShell
 
Set objFSO=CreateObject("Scripting.FileSystemObject")
 
tmpList="C:\imagelist.txt"
strPath=objFSO.GetAbsolutePathName(".")
 
Sub Recurse(objFolder)
    Dim strName,objFile,objSubFolder,objExt
 
    For Each objFile In objFolder.Files
        objExt=LCase(objFSO.GetExtensionName(objFile.Name))
 
        If objExt="jpg" or objExt="jpeg" or objExt="png" Then
            strName=Replace(objFile.Path,strPath,"")
            strName=Replace(strName,"\","/")
            strName=Replace(strName,"%","%25")
 
            'objTS.Write("""" & strName & """,")
           objTS.WriteLine("""" & strName & """,")
        End If
    Next
 
    For Each objSubFolder In objFolder.SubFolders
        Recurse objSubFolder
    Next
End Sub
 
Do
 
strPath=InputBox("Enter path to images: ","Imagelist-generator",strPath)
 
If objFSO.FolderExists(strPath) Then
    Set objTS=objFSO.OpenTextFile(tmpList,2,True)
   
    Recurse objFSO.GetFolder(strPath)
    objTS.Close()
   
    Set objShell=WScript.CreateObject("WScript.Shell")
    objShell.Run "notepad.exe " & tmpList
   
    strPath=Replace(strPath,"\","/")
    strPath=Replace(strPath,"%","%25")
    InputBox "Path to use with imagelist: ","Imagelist-generator","file:///" & strPath
   
    objFSO.DeleteFile tmpList,True
 
    Exit Do
ElseIf Len(strPath) Then
    MsgBox "Error: Invalid path.",vbCritical,"Error"
Else
    Exit Do
End If
 
Loop
 
WScript.Quit