Retrieving dates of PDFs to a list

Scripting Forums AppleScript | Mac OS X
#1

Simple question, but I am not getting it.

How do I get the creation date of PDFs?

This is what I have so far.

Thank you in advance for any help.

–Herbert Ripka
Greendale, WI

to MakeList(ProcessFolder)
	tell application "Finder"
		set filelist to (files of entire contents of alias ProcessFolder whose file type is "PDF" or name extension is "pdf" as list)
		return filelist
	end tell
end MakeList
to GetDimensions(TheFile)
	tell application "Image Events"
		set MyImage to open alias TheFile
		set MyResolution to resolution of MyImage
		set MyDimension to dimensions of MyImage
		set InfoList to name of MyImage & "    " & MyResolution & "    " & (item 1 of MyDimension) / (item 1 of MyResolution) & "    " & (item 2 of MyDimension) / (item 2 of MyResolution) & return
		close MyImage
	end tell
	return InfoList
end GetDimensions
set ProcessFolder to (choose folder) as string
set filelist to MakeList(ProcessFolder)
set MyPath to ((path to desktop folder) as string)
set logfile to MyPath & "Image_Log.txt"
open for access file logfile
close access file logfile
set MyList to ""
repeat with AnItem in filelist as list
	set MyList to MyList & (GetDimensions(AnItem as string))
end repeat
open for access file logfile with write permission
write MyList to file logfile
close access file logfile
#2

Here is a different attempt using the Finder, but I still can’t get the modified date.

–Herb Ripka
Greendale, WI

set f to (choose folder)
tell application "Finder" to set e to name of items of f
if e = {} then
	beep
	display dialog "No items found in the folder "" & f & ""." buttons {"Cancel"} default button 1 with icon 0 giving up after 10
else
	set filelist to {"Contents of " & f & return & return}
	repeat with i from 1 to (count e)
		set date to modification date of (info for (e's item i))
set filelist to (filelist & "" & e's item i & return)
	end repeat
	set the clipboard to "" & filelist
	beep 2
end if

tell application "TextEdit"
	make new document at beginning with properties {text:filelist as Unicode text}
	activate
end tell