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 
	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 "jpg" then 
			try 
				set tifPath to ((myFolder & (text 1 thru -5 of myPic) & ".tif") as text) 
				--display dialog tifPath 
				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) 
		-- 
end sendToPhotoshop 

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 
	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 "jpg" then 
			try 
				set tifPath to ((myFolder & (text 1 thru -5 of myPic) & ".tif") as text) 
				--display dialog tifPath  
				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 tifPath 
		open jpgPath 
		 
		set docName1 to name of document 1 
		set docName2 to name of document 2 
		if docName1 ends with ".jpg" then 
			set sourceDoc to docName1 
			set targetDoc to docName2 
		else 
			set sourceDoc to docName2 
			set targetDoc to docName1 
		end if 
		-- eine Schleife durch die Pfade des Quelldokuments  
		repeat with p from 1 to count of path items of document sourceDoc 
			-- das Quelldokument in den Vordergrund rücken  
			set current document to document sourceDoc 
			-- den aktuellen Pfad auswählen  
			select path item p of document sourceDoc 
			-- kopieren  
			copy 
			-- das Zieldokument in den Vordergrund rücken  
			set current document to document targetDoc 
			-- den Handler aufrufen, welcher den Pfad einsetzt  
			my pastePath() 
			-- die Auswahl im Zieldokument aufheben  
			try 
				deselect every path item of document targetDoc 
			end try 
		end repeat 
	end tell 
	 
end sendToPhotoshop 
 
on pastePath() 
	tell application "System Events" 
		keystroke "v" using {command down} 
	end tell 
end pastePath 

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 
	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 "jpg" then 
			try 
				set tifPath to ((myFolder & (text 1 thru -5 of myPic) & ".tif") as text) 
				--display dialog tifPath  
				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 
		open file jpgPath 
		 
		set docName1 to name of document 1 
		set docName2 to name of document 2 
		if docName1 ends with ".jpg" then 
			set sourceDoc to docName1 
			set targetDoc to docName2 
		else 
			set sourceDoc to docName2 
			set targetDoc to docName1 
		end if 
		-- eine Schleife durch die Pfade des Quelldokuments  
		repeat with p from 1 to count of path items of document sourceDoc 
			-- das Quelldokument in den Vordergrund rücken  
			set current document to document sourceDoc 
			-- den aktuellen Pfad auswählen  
			select path item p of document sourceDoc 
			-- kopieren  
			copy 
			-- das Zieldokument in den Vordergrund rücken  
			set current document to document targetDoc 
			-- den Handler aufrufen, welcher den Pfad einsetzt  
			my pastePath() 
			-- die Auswahl im Zieldokument aufheben  
			try 
				deselect every path item of document targetDoc 
			end try 
			 
		end repeat 
		 
		close sourceDoc saving no 
		delay 2 
		close targetDoc saving yes 
		delay 2 
		 
	end tell 
	 
end sendToPhotoshop 
 
on pastePath() 
	tell application "System Events" 
		keystroke "v" using {command down} 
	end tell 
end pastePath 

on sendToPhotoshop(jpgPath, tifPath) 
	display dialog jpgPath & return & tifPath 

close v : close the document 
close document : the document object or objects to be operated upon 

close document sourceDoc saving no  
		close document targetDoc saving yes 

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 "jpg" 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 
		open file jpgPath 
		 
		tell application "Adobe Photoshop CS4" 
			set docName1 to name of document 1 
			set docName2 to name of document 2 
			if docName1 ends with ".jpg" then 
				set sourceDoc to docName1 
				set targetDoc to docName2 
			else 
				set sourceDoc to docName2 
				set targetDoc to docName1 
			end if 
			-- eine Schleife durch die Pfade des Quelldokuments  
			repeat with p from 1 to count of path items of document sourceDoc 
				-- das Quelldokument in den Vordergrund rücken  
				set current document to document sourceDoc 
				-- den aktuellen Pfad auswählen  
				select path item p of document sourceDoc 
				-- kopieren  
				copy 
				-- das Zieldokument in den Vordergrund rücken  
				set current document to document targetDoc 
				-- den Handler aufrufen, welcher den Pfad einsetzt  
				my pastePath() 
				-- die Auswahl im Zieldokument aufheben  
				try 
					deselect every path item of document targetDoc 
				end try 
				 
			end repeat 
			 
			close document targetDoc saving yes 
			close document sourceDoc saving no 
			 
		end tell 
	end tell 
	 
end sendToPhotoshop 
 
on pastePath() 
	tell application "System Events" 
		keystroke "v" using {command down} 
	end tell 
end pastePath