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>

Reply via email to