ASP made by ACDSee

DIM FSO, PICNAME, mycountmycount = 0set fso = server.createObject ("scripting.filesystemObject") 'This is replaced with your own folder path DODIR FSO.GETFOLDER ("C:")

Sub Dodir on Error Resume Next Dim File, Subfolder for Each File in folder.files' wscript.stdout.writeline file.path if lcase (file.path, 4)) = ". Jpg" or lcase (Right (File.Path, 4)) = "JPEG" TEN Mycount = mycount 1%>