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




<HTML>
<HEAD><META HTTP-EQUIV="Content-Type" Content="text/html; charset=shift_jis"></HEAD>
<BODY>
<SCRIPT language="VBScript">
<!--
　　Dim fso, f, fs, ext
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　Set f = fso.GetFolder(replace(replace(Mid(location.href,InStr(location.href,"?")+1),"%20"," "),"/","\"))
　　For Each fs in f.Files
　　　　ext = lcase(fso.GetExtensionName(fs.Path))
　　　　if ext = "jpg" or ext = "bmp" or ext = "gif" or ext = "jpeg" or ext = "png" then
　　　　　　document.write "<img src=""" & fs.Path & """><br>"
　　　　　　document.write fs.Path & "<br>"
　　　　end if
　　Next
-->
</SCRIPT>
</BODY>
</HTML>


使い方はviewer.htmlで保存してviewer.html?フォルダ名でブラウザで開け。