In playing with the following code from the Language Reference for a simple
cataloging app I'm working on, I've come across a problem. It seems that RB
doesn't necessarily see applications like a single file, and instead sees it as
the folder/package that it really is, which can cause all sorts of issues. So,
I've been trying to figure out a way for RB to look at an application and see
it as an actual application. I've been mucking about with the code that follows
(IsItAnApp subroutine), but I'm having a tough time finding the right combo of
qualifiers that work. Does anyone have any (preferably) simple code that
qualifies apps vs.folders? I'm considering going with Applescript or maybe a
shell script of some kind (don't have a lue how to do that yet), but I would
prefer to keep it "pure" RB for the sake of speed and easy maintenance.
[code]
Sub CopyFileorFolder (source as FolderItem, destination as FolderItem)
Dim i as Integer
Dim newFolder as FolderItem
If...Then...Else source.directory then //it's a folder
newFolder=destination.child(source.name)
newFolder.createAsFolder
For i=1 to source.count //go through each item
If source.item(i).directory then
//it's a folder
If IsItAnApp(source.item(i)) = false then //My code
CopyFileOrFolder source.item(i), newFolder
End If
//recursively call this
//routine passing it the folder
else
source.item(i).CopyFileTo newFolder
//it's a file so copy it
end if
next
else //it's not a folder
source.CopyFileTo destination
end if
Sub IsItAnApp (theCurrentItem as FolderItem) as boolean
if theCurrentItem.Child("Contents").Exists then
if theCurrentItem.Child("Contents").Child("Info.plist").exists then
return true
end if
elseif theCurrentItem.Child("Info.plist").Exists then
return true
elseif theCurrentItem.MacType = "APPL" then
return true
elseif Right(theCurrentItem.Name, 4) <> ".app" then
return true
end if
return false
[/code]
Thanks for any help!
--
Philip Regan\
[EMAIL PROTECTED]
RB 2K5r4, Mac OS 10.3.9, Applescript
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
