René, first, the applescript is not quite as simple as that, and I think you'll have to put the comment into a Revolution variable first:

on mouseUp

repeat with i = 1 to the number of lines of fld "fldData" -- a field that contain a list of file names
    put line i of fld "fldData" into ancienNomdefichier -- old name
    put the getCommentAS of me into tAScript

put "tell application" && quote & "Finder" & quote & cr into tAScript put "get comment of file" && quote & revMacFromUnixPath (ancienNomdefichier) & quote & cr after tAScript
    put "end tell" after tAScript

    do tAScript as applescript
    put the result into commentaire

put line i of fld "fldDatacodées" into nouveauNomdefichier -- new name rename file ancienNomdefichier to nouveauNomdefichier -- don't need "do"

put "tell application" && quote & "Finder" & quote & cr into tAScript put "set comment of file" && quote & revMacFromUnixPath (nouveauNomdefichier) & quote && "to" && commentaire & cr after tAScript
    put "end tell" after tAScript
    do tAScript as applescript

  end repeat
end mouseUp

I haven't actually tested this, but I think it should work. One more thing is that you'll need to be using the full paths of the files.

Best,

Mark

On 10 Jan 2008, at 17:42, René Micout wrote:

on mouseUp
repeat with i = 1 to the number of lines of fld "fldData" -- a field that contain a list of file names
    put line i of fld "fldData" into ancienNomdefichier -- old name
do "set commentaire to comment of file" &&quote& ancienNomdefichier &quote as AppleScript put line i of fld "fldDatacodées" into nouveauNomdefichier -- new name do "rename file" &&quote& ancienNomdefichier &quote&& "to" &&quote& nouveauNomdefichier &quote -- that work do "set comment of file" &&quote& nouveauNomdefichier &quote&& "to commentaire" as AppleScript
  end repeat
end mouseUp

_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to