Hello,
This is what I have
DIM EOL as New EndOfLine
'Dim f as FolderItem = DocumentsFolder.Child("MyApp.app") 'If app exists
Dim f as FolderItem = DocumentsFolder.Child("MyApp alias") 'if MyApp alias
exists
'Dim f as FolderItem = DocumentsFolder.Child("MyApp") 'if MyApp alias exists
and its name is changed to MyApp
If f = Nil or f.Exists = False then
msgbox "The item (MyApp alias) is not found" + EOL +_
"Please make sure that it is there, and try again."
return
elseif f.trueChild = nil then
msgbox "The alias (MyApp alias) could not be opened, because the original
item cannot be found" + EOL +_
"Please make sure that the alias is not orphaned."
return
else
f.launch
end if
... it does not compile.
any suggestions?
Thanks.
Lennox
Michael Rebar <[EMAIL PROTECTED]> wrote: On 12/21/06 8:02 AM, "Charles Yeomans"
wrote:
>
> On Dec 21, 2006, at 10:51 AM, Michael Rebar wrote:
>>
>> If folderItem.TrueChild for an existing alias returns nil you've,
>> likely got
>> a defective alias (depends a bit on your definition of defective
>> alias).
>
> Almost -- TrueChild returns the file, unresolved. So I think he
> would want to check to see whether Child is nil.
>
Yes, quite so. Thanks.
Michael
_______________________________________________
Unsubscribe or switch delivery mode:
Search the archives of this list here:
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
_______________________________________________
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>