why does this file info lister work sometimes, not others
why does this file info lister work sometimes, not others
- Subject: why does this file info lister work sometimes, not others
- From: Peter Long <email@hidden>
- Date: Wed, 5 Sep 2001 13:50:03 -0700
I can't seem to get this to work properly thru nested folders, and
sometimes with too many files (> about 500). Is it around coercion?
set myFolder to choose folder with prompt "Select folder"
tell application "Finder"
try
set the FileList to entire contents of myFolder
set bigList to {return}
repeat with eachItem in (FileList)
set eachItem to eachItem as string
if last character of (eachItem) is not ":" then
set item_info to info for alias eachItem
set end of bigList to {item_info as
list, eachItem, return}
end if
end repeat
on error error_message
display dialog "oops"
end try
set exportFile to (desktop as text) & "exif.txt"
set fileRef to open for access file exportFile with write permission
try
set AppleScript's text item delimiters to {tab}
set output to bigList as string
write output to fileRef
close access fileRef
set AppleScript's text item delimiters to {""}
end try
end tell
--
Peter Long (email@hidden)
Lost Moose Publishing
http://www.yukonweb.com/business/lost_moose/
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
K-L Services
http://www.yukonweb.com/business/lost_moose/books/k-l/k-l_frame.html
58 Kluane Crescent
Whitehorse, Yukon, Y1A 3G7, Canada
867-668-5076,
fax:867-668-6223
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||