Select multiple files with Navigation Services
Pls check it at
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 FNFSSpec 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...