Creating an Alias Catalog - can Automator do it?

Hi

Just in case anyone ever stumbles across this thread, I thought I'd post a solution.

Many thanks to all those AppleScripters who had posted their work online for me to read through. I eventually managed to adapt a few scripts to make this thing work:

on run

set SourceFolder to choose folder with prompt "Select items to be catalogued:" as string

my MainScript(SourceFolder)

end run

on open of SourceFolderList

repeat with ThisFolder in the SourceFolderList

set ThisFolderPath to ThisFolder as string

if last character of ThisFolderPath is ":" then

my MainScript(ThisFolderPath)

end if

end repeat

end open

on MainScript(SourceFolder)

tell application "Finder"

set SourceFolder to folder (SourceFolder)

set the TargetFolder to ("HD:Path:To:TargetFolder:" as alias)

end tell

if SourceFolder is not "" and TargetFolder is not "" then

set NewFolderName to (name of SourceFolder as string)

set CreatedFolder to CreateNewFolder(TargetFolder, NewFolderName)

my DuplicateFolderStructure(SourceFolder, CreatedFolder)

end if

end MainScript

on DuplicateFolderStructure(SourceFolder, TargetFolder)

tell application "Finder"

try

set NewAliases to every file of SourceFolder

makenewalias fileatTargetFoldertoNewAliases

set FolderList to every folder of SourceFolder

repeat with ThisFolder in the FolderList

set CreatedFolder to my CreateNewFolder(TargetFolder, get name of ThisFolder)

my DuplicateFolderStructure(ThisFolder, CreatedFolder)

end repeat

end try

end tell

end DuplicateFolderStructure

on CreateNewFolder(TargetFolder, NewFolderName)

tell application "Finder"

try

set NewFolder to makenewfolderatTargetFolderwith properties {name:NewFolderName}

return NewFolder

on error ErrorMsg

display dialogErrorMsg

end try

end tell

end CreateNewFolder