Here's what eventually worked:
Dim AppTypes as New FileType
AppTypes.Name="Application Types"
AppTypes.MacType="appl;APPL"
Dim f as FolderItem = GetOpenFolderItem(AppTypes.MacType)
if f <> Nil then
MsgBox f.AbsolutePath
end if
I don't understand why this won't though:
Dim AppTypes as New FileType
AppTypes.Name="Application Types"
AppTypes.Extensions="app" (or .app, or APP, or .APP or .app with a
space)
Dim f as FolderItem = GetOpenFolderItem(AppTypes.Extensions)
if f <> Nil then
MsgBox f.AbsolutePath
end if
Anybody?
Jeff J.
On Apr 16, 2006, at 1:32 PM, Jeff Justice wrote:
Doesn't work that way either. Besides, don't most Mac apps have
the ".app" extension, which should be a viable way to filter?
Jeff J.
On Apr 16, 2006, at 1:28 PM, Sven E Olsson wrote:
On 16 apr 2006, at 20.07, Jeff Justice wrote:
This is driving me batty...
Here's the code:
Dim AppTypes as New FileType
AppTypes.Name="Application Types"
AppTypes.Extensions=".app"
Dim f as FolderItem = GetOpenFolderItem(AppTypes)
if f <> Nil then
MsgBox f.AbsolutePath
end if
All I want to be selectable in the dialog box is applications,
but with above code, everything is selectable.
What am I missing?
Jeff J.
I think you missing: AppTypes.MacType = "APP"
Sven E Olsson
_______________________________________________
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>
_______________________________________________
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>
_______________________________________________
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>
