%
% next photograph
%
_nextphoto zeronull
dupnzis
{
 +
 dup !nextphoto
 ^"img" jpg
 dup ofbin
"from " log()
 exch
%%% ^"Pics\" ofbin
 "MyDocuments" File.Special &"\DeskIn\" ^
"to " log()
 copyfile
}
{
 1 !nextphoto
%%% "Pics\*.jpg" ofbin
 "MyDocuments" File.Special &"\DeskIn\*.jpg"
"deling " log()
 delfiles
} ifelse


/*
%
% monitor designated image folder
%
"Images.xml" ofdesk read

"#1#" "Pics" ofbin escape replall

"Monitor.xml" ofdesk write

"Monitor" *atopttrg
*/