Script2EXE --- Convert JavaScript, VBScript, HTML to Win32 Programs (EXE and DLL)

Image Viewer 1 - A Sample Programm Created with Script2EXE

Display all images in a folder.
Screenshot
Download the programm, about 165 K
Source Codes

<html>
<HEAD>
<TITLE>Image Viewer 1 - Sample Program Created With Script2EXE</TITLE>
<STYLE TYPE="TEXT/CSS">
body{margin:0}
</STYLE>

<script language="javascript">
if(window.external.SHW)
    window.external.AllowContextMenu(false);

function Open(fld)
{
if(!fld)
    {
    document.body.innerHTML="<table width=\"100%\" height=\"90%\"><tr><td align=\"center\" vAlign=\"middle\">Right click and select \"Open...\" on the menu.</td></tr></table>";
    return;
    }

var fo=new ActiveXObject("Scripting.FileSystemObject");
var dir=fo.GetFolder(fld);
var files =new Enumerator(dir.files);
var t="";
var c=0;
while(!files.atEnd())
    {
    var path=files.item().Path;
    var i=path.lastIndexOf('.');
    if(i<0)
        {
        files.moveNext();
        continue;
        }
    var ext=path.substr(i+1).toLowerCase();
    if(ext!="jpg" && ext!="jpeg" && ext!="gif" && ext!="png")
        {
        files.moveNext();
        continue;
        }
    var t2="<img src=\"" + path + "\">\r\n";
    t+=t2;
    files.moveNext();
    c++;
    }
if(c>0)
    {
    window.status=c.toString() + " images";
    document.body.innerHTML=t;
    }
else
    {
    document.body.innerHTML="<table width=\"100%\" height=\"90%\"><tr><td align=\"center\" vAlign=\"middle\">No pictures found.</td></tr></table>";
    window.status="No pictures found";
    }
}

function showMenu()
{
if(!window.external.SHW)
    return;
if(window.event.button!=2)
    return;

var menu=window.external.CreateMenu();
menu.AddItem("Open...");
menu.AddItem("");
menu.AddItem("About...");
menu.AddItem("Exit");
var s=menu.Show();
if(!s)
    return;

if(s=="Open...")
    {
    var fld=window.external.SHBrowseForFolder();
    Open(fld);
    return;
    }

if(s=="Exit")
    {
    window.close();
    return;
    }
if(s=="About...")
    {
    var r=window.external.MessageBox("This program is created with Script2EXE by XUEBROTHERS.\r\n\r\nWould you like to visit the Web site of Script2EXE?", "yesno", "information", "Earth");
    if(r=="yes")
        window.external.ShellExecute("http://www.xuebrothers.net/sh/sh.htm");
    return;
    }
}

</script>

</HEAD>
<body onmousedown="showMenu()" onload="Open('')">

</body>
</html>