FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

DISK I/O

Select multiple files with Navigation Services


Pls check it at

http://www.ozemail.com.au/~benjamen/

To use Navitation Servies, you have to update your os to 8.5, or install Navigation Servies SDK. (shared library)

When file(s) were selected, Navigation Serives replies file list as AppleEvents Doc list, so you have to do,
CLEAR LOCAL
DIM err%                                          ' OSErr
DIM spec.FSSpec
DIM totalDescItems&, keyWord&, returnType&, actualSize&
DIM i&
LOCAL FN AEReadDocList( AEDesc& )

  err% = FN AECOUNTITEMS( AEDesc&.descType&, totalDescItems& )
  LONG IF err% = _noErr AND totalDescItems& > 0
    FOR i& = 1 TO totalDescItems&
      err% = FN AEGETNTHPTR( AEDesc&.descType&, i&, _"fss ", keyWord&, returnType&, @spec, 
                           _FSSpec, actualSize& )
      LONG IF err% = _noErr
        FN DoOpen( @spec )
      END IF
    NEXT
  END IF
  err% = FN AEDISPOSEDESC ( AEDesc&.descType& )
END FN
FSSpec is the new way of file specification from System 7, and this is not same working directory ID (vRefNum) which usually used in FB's statement.

So, we have to convert each other. To learn how to do it and the struct of FSSpec strauture, check Jamin's sample code.

And one more.

I've made PG filter for Navigation Services, and it is available at: http://www.ravi.ne.jp/FBII/download.html

But it may contains several bugs...
Osamu Shigematsu