画像ビューア作った。フリーソフトだから俺に感謝して自由に使ってくれ。バグ修正改良自由にして良いぞ。
だからサポートは無しだ。質問は受け付けん。

Set obj = CreateObject("Scripting.FileSystemObject")
Set obj2 = CreateObject("Scripting.FileSystemObject")
Set FW = obj2.CreateTextFile("Viewer.HTML")
call subFolder(obj.GetParentFolderName(obj.GetAbsolutePathName("Viewer.vbs")),FW)

Sub subFolder(FolderPath,FW)

Set FD = obj.GetFolder(FolderPath)
For Each FSO_File In FD.Files
If StrComp(Right(FSO_File.Name, 3),"JPG", 1) = 0 Or StrComp(Right(FSO_File.Name, 3),"GIF", 1) = 0 Or StrComp(Right(FSO_File.Name, 3),"PNG", 1) = 0 Then
FW.WriteLine ( "<IMG SRC=" & Chr(34) & FSO_File.Path & Chr(34) & "></br>" & FSO_File.Path & "</p>")
End If
Next
For Each FSO_SUB_FOLDER In FD.SubFolders
Call subFolder(FSO_SUB_FOLDER.Path,FW)
Next

End Sub

使い方はViewer.vbsで保存してダブルクリック。