Finding invisibles with walk folders
Finding invisibles with walk folders
- Subject: Finding invisibles with walk folders
- From: Xandra Lee <email@hidden>
- Date: Fri, 28 Dec 2001 10:21:30 -0500
I thought this one would be a no-brainer, but I'm stuck trying to get
invisibles in Folder and all enclosing folders without using entire
contents. I'm having trouble trying to get a routine like this to work
with walk folders.
I think my problem is trouble trying to get result from script object, I
can't figure out a structure to incorporate walk folders and get a
result from the script object. I've xx'd out attempts at using walk
folders---
REQUIRES: Akua Sweets
global txtResult
set txtResult to ""
set theFolder to "muz:System Folder:"
set txtResult to processIT(theFolder)
on processIT(theFolder)
--script grabInvisibles
--xx set txtResult to ""
set allItems to list folder theFolder
set itemCt to count of items of allItems
repeat with i from 1 to itemCt
set theName to item i of allItems
--!!!BEWARE WILL NEED TO FIX THIS: return char
if theName is not "Icon
" then
set thePath to (theFolder & theName) --as string
set theInfo to extended info for thePath
--set ftype to file type of theInfo
if invisible status of theInfo is true then
set textInfo to my (grabInfo(theName, thePath, theInfo))
set txtResult to txtResult & textInfo
end if
if file type of theInfo is "fold" then
try
set fPath to thePath & ":"
processIT(fPath)
end try
end if
end if
end repeat
--XXX walk folders theFolder with script grabInvisibles with using
folders
--if walk folders is here no result
--end script
--XXX walk folders theFolder with script grabInvisibles with using
folders
--> "muz:System Folder:" doesn't understand the walk folders message.
return txtResult
end processIT
tell application "Tex-Edit Plus"
make new document with data txtResult
--deal with other files which end in return
replace window 1 looking for "^c^t" replacing with "^t"
end tell
----------------------------
on grabInfo(theName, thePath, theInfo)
set {thePath, ftype, createD, modD, parFld} to {item spec, file type,
creation date, modification date, parent spec} of theInfo
if ftype is not "icon" then
set createD to date string for createD
set modD to date string for modD
set textInfo to (theName & tab & thePath & tab & createD & tab & modD &
tab & parFld & return)
else --ignore if its and icon
set textInfo to ""
end if
return textInfo
end grabInfo
-----------
All help appreciated,
xandra
Alixandra Leigh
AceDesign
email@hidden
------------------------------------------
Furniture:
><
http://home.rochester.rr.com/alexleighs/furniture/furniture.htm>
Renderings:
><
http://home.rochester.rr.com/alexleighs/interiors/interiors.htm>