🚀 go-pugleaf

Sooner or later somebody will ask CS compatible of PlaceAllFilesWithFileName script.

I've modified Olav Kvern's and Chris Paveglio's original script tp work with CS.

PART 1

--PlaceAllFilesWithFileName CS 
--This script attempts to place all files found in a specified folder and adds a label  
--to each frame containing the file name only (is possible to add full path to image). 

set theFolder to choose folder with prompt "Select the folder containing the files you want to place." 
tell application "Finder" 
	set theFiles to every file of folder theFolder 
end tell

--get files in a folder, alphabetically, and of only ID-compatible and specified types 
set fileList to {} 
repeat with i from 1 to count of items in theFiles 
	set theFile to item i of theFiles 
	set theFileType to file type of theFile 
	set theName to the name of theFile 
	if theFileType is "TEXT" then 
		if theName ends with ".ai" then 
			copy theFile to end of fileList 
		end if 
	end if 
	if theFileType is "EPSF" then 
		copy theFile to end of fileList 
	end if 
	if theFileType is "PICT" then 
		copy theFile to end of fileList 
	end if 
	if theFileType is "TIFF" then 
		copy theFile to end of fileList 
	end if 
	if theFileType is "8BPs" then 
		copy theFile to end of fileList 
	end if 
	if theFileType is "GIFf" then 
		copy theFile to end of fileList 
	end if 
	if theFileType is "PDF " then 
		copy theFile to end of fileList 
	end if 
	if theFileType is missing value then 
		if theName ends with ".jpg" or theName ends with ".eps" or theName ends with ".ai" or theName ends with ".pdf" or theName ends with ".pct" or theName ends with ".tif" or theName ends with ".bmp" or theName ends with ".gif" then 
			copy theFile to end of fileList 
		end if 
	end if 
end repeat 
set myNumberOfFrames to (count of items of fileList) 
display dialog (myNumberOfFrames as string) & " files were found to place." with icon 1

--Set up the page layout by entering the number of rows and columns you want. 
display dialog "How many rows down do you need?" default answer "4" with icon 1 
set myNumberOfRows to (text returned of result) as number 
display dialog "How many columns across do you need?" default answer "4" with icon 1 
set myNumberOfColumns to (text returned of result) as number

--If you don't want to remove empty frames, set myRemoveEmptyFrames to false.  
set myRemoveEmptyFrames to true 
display dialog "Do you want to keep extra unfilled boxes or delete them?" buttons {"Keep", "Delete"} with icon 1 default button 2 
if button returned of result is "Keep" then set myRemoveEmptyFrames to false

--ask for the title box on top 
display dialog "What title do you want on the top of the page?" with icon 1 default answer "Catalog" 
set myTitle to text returned of result

--myOffset defines the height of the text frame for the labels.  
set myOffset to 18 
set myFramesPerPage to (myNumberOfRows * myNumberOfColumns)