There has to be a way to catalog...
There has to be a way to catalog...
- Subject: There has to be a way to catalog...
- From: Tim <email@hidden>
- Date: Mon, 28 Jan 2002 09:31:22 -0500
This one is driving me nuts :-) I am just trying to create a simple
catalog of my backup CDs, with all the file info. But I am on OS
10.1.2, so I don't have the wonderful luxury of using Jon's "walk
folders" component to his osax. I did get a script to work, but only
on the top-level folder. I would love to get this to work on both
folders AND subfolders. Here is the script:
set the sourceFolder to (choose folder) as alias
set theList to ""
set the itemlist to list folder sourceFolder without invisibles
set sourceFolder to sourceFolder as string
repeat with i from 1 to number of items in the itemlist
set thisItem to item i of the itemlist
set thisItem to (sourceFolder & thisItem) as alias
set thisInfo to info for thisItem
set {iName, iCreateDate, iModDate, iVisible, iSize, iFolder, iExt,
[NO-BREAK]iPack, iType, iCreator} to ,
{name, creation date, modification date, visible, size, folder,
[NO-BREAK]name extension, ,
package folder, file type, file creator} of thisInfo
tell application "Finder"
set iSize to (physical size of thisItem)
set iPath to thisItem as string
end tell
set tempList to {iPath, iName, iCreateDate as string, iModDate as
[NO-BREAK]string, iVisible, ,
iSize, iFolder, iExt, iPack, iType, iCreator}
tell application "FileMaker Pro"
set newRec to create new record with data tempList at end of
[NO-BREAK]layout "All Data" of document 1
end tell
end repeat
Any help on this would be sincerely appreciated!
All the Best,
Tim
--
--------------------------------------------------------------
http://www.belimah.com
http://www.filemakerdev.com
"Here's the mirror, behind there is a screen
Turn around
On both ways you can get in"
--------------------------------------------------------------