Quark file list to an Excel file

I am trying to sort out how to get a list of the contents of a series of folders into an Excel document. I do not simply want to get the entire contents of a top level folder, since there is an order I need the filenames in. I would like to loop the part that gets all Quark files and copies the filename to the end of QuarkFileNameList until all needed folders are added. I have not scripted Excel yet, so as long as I can get the information in a list in AS, then I can sort out the data later.

If I am going about this all wrong, please redirect me.


copy text item delimiters of AppleScript to savedDelim
set text item delimiters of AppleScript to {":"}
set text item delimiters of AppleScript to savedDelim

set myName to name of (info for (path to me))

set FileSample to choose folder
set folderName to name of (info for FileSample)
tell application "Finder" to set theFiles to files of FileSample whose name extension is in {"qxd"} or kind contains "QuarkXPress" or file type is in {"XPRJ", "XPR3"}

set QuarkFileNameList to {}
repeat with i from 1 to count of theFiles
	copy theFiles to end of QuarkFileNameList
end repeat

display dialog "Please choose another folder to continue or press done to process the results." buttons {"Another Folder", "Done", "Cancel"} default button 1
set dialogResult to button returned of result

if dialogResult is "Another Folder" then
	--repeat choose folder
end if

if dialogResult is "Done" then
	--send data to an Excel file
end if

tell application myName
end tell

display dialog "Done"

Model: Dual 2.3GHz G5
AppleScript: 2.1.1/Script Debugger 4
Browser: Firefox
Operating System: Mac OS X (10.4)