Re: File Type Filter in GetOpenFolderItem

[Sven E Olsson]

On 16 apr 2006, at 20.39, Jeff Justice wrote:

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.

Ooops.. MacType should have 4 char code, so my was wrong... (But Works)

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>