LiveCode Forums.

Code: Select all

on mouseUp
   put the long name of this stack into tFolderName
   delete word 1 of tFolderName -- remove 'stack' from folder name
   put the value of tFolderName into tFolderName -- remove quote marks
   set itemdelimiter to "/"
   put "Images"  into item -1 of tFolderName -- append target folder name
   put files(tFolderName) into tFileList -- get the file list
   put tFileList into tJPegs
   Filter lines of tJPegs with regex pattern "jpg"
   sort lines of tJPegs ascending numeric -- sorted list of jPegs
   
   put the defaultfolder into tOldDefaultFolder -- save the current default
   set the defaultFolder to tFolderName
   
   put "-t -sep =" into tTags  -- tab delimited list with = as separator
   put tFolderName&"/"&"JPegExifData.txt" into tJPegExifFileName  -- output file is same dir as jPegs
   
   repeat for each line tImage in tJPegs
      put tFolderName&"/"&tImage into tJpegName 
      put "C:/Windows/exifTool" &space&tTags &space&quote& tJpegName &quote &space& ">>" &space&quote&tJPegExifFileName &quote into tExifCmdLine
      
      WindowShell(tExifCmdLine)  --- Execution stops at this line <--------------------------------
      put tImage&": "& the result&cr after msg  -- check the result
   end repeat
   
   set the defaultFolder to tOldDefaultFolder -- restore the default
end mouseUp

function windowshell pCmd
   replace "/" with "\" in pCmd
   return shell(pCmd)
end windowshell