Use this to give the user a popup list of files in a certain folder (in this case, jpg and gif images only).  This program assumes you have an LE named 'image'. Once the user selects a file, Sesame can launch the file, delete the file, plug in the filename into an image LE to display an image, etc.

Steve

Command button-On Element Entry:

var a as int
var b as string
var vline as string
var vdata as string
var c as string

a = @shell("dir/b "+ @imagepath() +" > c:\files.txt")
b = @insert("C:\files.txt")

while @len(b) > 0
{
vline = split(b, @newline())
if @right(vline,4) = ".jpg" or @right(vline,4) = ".gif" then
vdata = @appendstringarray(vdata,vline)
}

c = @popupmenu(vdata,"Please select image file")
if c <> "" then.....

I pretty sure the problem is due to the fact that the newer Windows operating systems will deny access the the root folder on the C drive.

Try replacing c:\files.txt with another location like C:\Sesame2\files.txt.

Be sure you have some .jpg or .gif files in the target location. Or, to test, you could comment out the following line:
if @right(vline,4) = ".jpg" or @right(vline,4) = ".gif" then

Commenting that line would list all files and folders in the target location.

You also might find the newer @PopupChoiceList preferable to @PopupMenu.