whats in stuffit
whats in stuffit
- Subject: whats in stuffit
- From: "Feldman, Don" <email@hidden>
- Date: Mon, 29 Jan 2001 12:21:12 -0500
Hello List
I'm a novice applescripter who needs a script to go through about 500
stuffit archives and find out what kind of files in them were stuffed
(Quark, pagemaker, word, illustrator, etc.). The script below is as far as I
got. It works OK up to a point. I would like to find a way to make it
recursive, that is going through folders within folders of stuffed
information. I looked at the example on the web site "applescript primer"
which gave me the idea to make it recursive, but I can't seem to adapt that
for Stuffit. Any ideas?
Don F
tell application "StuffIt Deluxe"
activate
open (choose file)
set myfile
to me --not doing anything
my flapjack()
end tell
on flapjack()
tell
application "StuffIt Deluxe"
set allEntries to " " as string
if
class of archive item 1 of archive 1 is archive folder then
set FolderCount
to the number of items of archive folder 1
in archive 1
repeat with i from 1 to FolderCount
set FileName to the
name of archive item i of
archive folder 1 in archive 1
set FileType to the file type of archive
item i of
archive folder 1 in archive 1
set FileCreator to the file creator of
archive item
i of archive folder 1 in archive 1
set oneEntry to FileName & " has a file
type of " &
FileType & ,
" and " & " a file creator of " &
FileCreator & return
set allEntries to allEntries & oneEntry as string
end repeat
else
set FileCount to the count of every archive item
in archive
1
repeat with i from 1 to FileCount
set FileName to the name of archive
item i of
archive 1
set FileType to the file type of archive item i of
archive 1
set FileCreator to the file creator of archive item
i in archive 1
set oneEntry to FileName & " has a file type of " &
FileType & ,
" and " & " a file creator of " &
FileCreator & return
set allEntries to allEntries & oneEntry as string
end repeat
end if
end tell
end flapjack
tell application "StuffIt Deluxe"
activate
open (choose file)
set myfile
to me --not doing anything
my flapjack()
end tell
on flapjack()
tell
application "StuffIt Deluxe"
set allEntries to " " as string
if
class of archive item 1 of archive 1 is archive folder then
set FolderCount
to the number of items of archive folder 1
in archive 1
repeat with i from 1 to FolderCount
set FileName to the
name of archive item i of
archive folder 1 in archive 1
set FileType to the file type of archive
item i of
archive folder 1 in archive 1
set FileCreator to the file creator of
archive item
i of archive folder 1 in archive 1
set oneEntry to FileName & " has a file
type of " &
FileType & ,
" and " & " a file creator of " &
FileCreator & return
set allEntries to allEntries & oneEntry as string
end repeat
else
set FileCount to the count of every archive item
in archive
1
repeat with i from 1 to FileCount
set FileName to the name of archive
item i of
archive 1
set FileType to the file type of archive item i of
archive 1
set FileCreator to the file creator of archive item
i in archive 1
set oneEntry to FileName & " has a file type of " &
FileType & ,
" and " & " a file creator of " &
FileCreator & return
set allEntries to allEntries & oneEntry as string
end repeat
end if
end tell
end flapjack