property logPath : POSIX path of (path to desktop as text) --hier wird die Error.log geschrieben    
 
on open listOfFolders 
	set TID to AppleScript's text item delimiters 
	 
	set myFolder to (item 1 of listOfFolders) as text 
	--display dialog myFolder 
	set fileNameList to list folder myFolder without invisibles 
	 
	processList(myFolder, fileNameList) 
	set AppleScript's text item delimiters to TID 
end open 
 
 
on processList(myFolder, fileNameList) 
	set AppleScript's text item delimiters to "." 
	repeat with i from 1 to count of fileNameList 
		set myPic to item i of fileNameList 
		if text item -1 of myPic is "psd" then 
			try 
				set tifPath to ((myFolder & (text 1 thru -5 of myPic) & ".tif") as text) 
				alias tifPath 
				set jpgPath to (myFolder & myPic) as text 
				sendToPhotoshop(jpgPath, tifPath) 
			on error e 
				display alert e giving up after 2 
				do shell script "echo " & quoted form of (e) & " >> " & quoted form of (logPath & "Error.log") 
			end try 
		end if 
	end repeat 
	 
end processList 
 
 
on sendToPhotoshop(jpgPath, tifPath) 
	tell application "Adobe Photoshop CS4" 
		activate 
		 
		open file tifPath showing dialogs {never} 
		open file jpgPath showing dialogs {never} 
		 
		tell application "Adobe Photoshop CS4" 
			set docName1 to name of document 1 
			set docName2 to name of document 2 
			if docName1 ends with ".psd" then 
				set sourceDoc to docName1 
				set targetDoc to docName2 
			else 
				set sourceDoc to docName2 
				set targetDoc to docName1 
			end if 
			 
			 
			 
			repeat with p from 1 to count of every channel of document sourceDoc 
				 
				set current document to document sourceDoc 
				 
				duplicate (channel p) of document sourceDoc to document targetDoc 
				 
			end repeat 
			 
			set MyProfile to "Adobe RGB (1998)" as string 
			set current document to document targetDoc 
			 
			if (color profile kind of document targetDoc = working) is not true then 
				convert document targetDoc to profile MyProfile intent relative colorimetric with dithering and blackpoint compensation 
			end if 
			 
			close document targetDoc saving yes 
			close document sourceDoc saving no 
			 
		end tell 
	end tell 
	 
end sendToPhotoshop 

		if characters of myPics > "20" then 
			set name of myPics to (text 1 thru 20 & ".psd") 
		end if 

		tell application "Finder" 
			if ((get text item -1 of myPic) is "psd") and ((get name of myPic) ends with "OUT") then 
				try 
					set (name of myPic) to ((text 1 thru 20 of myPic) & ".psd") as text 
			end try 
			end if 
			end tell 

on processList(myFolder, fileNameList) 
  repeat with i from 1 to count of fileNameList 
    set myPic to item i of fileNameList 
    if myPic ends with "psd" then 
      set baseName to text 1 thru -5 of myPic 
      if baseName ends with "OUT" then 
        set baseName to text 1 thru -5 of baseName 
        set newName to baseName & ".psd" 
        tell application "Finder" 
          try 
            set (name of file (myFolder & myPic)) to newName 
          end try 
        end tell 
      end if 
       
      try 
        set tifPath to myFolder & baseName & ".tif" 
        alias tifPath 
        set psdPath to myFolder & baseName & ".psd" 
        sendToPhotoshop(psdPath, tifPath) 
      on error e 
        display alert e giving up after 2 
        do shell script "echo " & quoted form of (e) & " >> " & quoted form of (logPath & "Error.log") 
      end try 
       
    end if 
  end repeat 
end processList