FolderItem.LaunchServicesItemInfoMBS(WhichInfo as Integer) as LaunchServicesItemInfoMBS

dim l as LaunchServicesItemInfoMBS
dim f as FolderItem

f=SpecialFolder.Applications.Child("Mail.app")
l=f.LaunchServicesItemInfoMBS(-1)

if l.IsApplication then // True for mail.app
  MsgBox "is Application"
end if

if l.IsContainer then // True for mail.app
  MsgBox "is Container"
end if

if l.IsPackage then // True for mail.app
  MsgBox "is Package"
end if

Returns as much or as little information as requested about the folderitem. Some information is available in a thread-safe manner, some is not.

Possible values you can combine for the WhichInfo parameter:

kLSRequestExtension	= &h01	Requests the item's filename extension.
kLSRequestTypeCreator	= &h02	Requests the item's file type and creator signature.
kLSRequestBasicFlagsOnly	= &h04	Requests all item-information flags that are not application-specific: that is, all except IsNativeApp, IsClassicApp, AppPrefersNative, AppPrefersClassic and AppIsScriptable.
kLSRequestAppTypeFlags	= &h08	Requests all application-specific item-information flags: that is, IsNativeApp, IsClassicApp, AppPrefersNative, AppPrefersClassic and AppIsScriptable.
kLSRequestAllFlags	= &h10	Requests all item-information flags.
kLSRequestIconAndKind	= &h20	Not used.
kLSRequestExtensionFlagsOnly	= &h40	Requests only the kLSItemInfoExtensionIsHidden item-information flag.
kLSRequestAllInfo	= -1

Some examples using this method:

• /MacCocoa/Dynamic FileOpenDialog