Platform |
Win32, x64 |
|||||||||||||||||||||
Purpose |
To access the standard 'open' dialog box. |
|||||||||||||||||||||
Syntax |
LOGICAL FUNCTION GET_MULTIPLE_FILENAMES@(HWND, |
|||||||||||||||||||||
Description |
This function is an alternative to GET_FILTERED_FILE@ and allows more than one file to be selected. The arguments are as follows. |
|||||||||||||||||||||
Description |
| |||||||||||||||||||||
Notes |
After this routine has been called, CLEARWIN_INFO@('FILTER_ITEM_SELECTED') provides the index of the file filter that was selected by the user. This can be called, for example, to detect if the file was saved using a different file extension. Previously 64 bit ClearWin+ used an indirect call to the Windows API whilst 32 bit ClearWin+ used a direct
call. Now both 64 bit and 32 bit ClearWin+ use a direct call by default whilst the indirect method is available
as an option. The alternative is a little slower but might generally prove to be safer. Make a prior call: |
|||||||||||||||||||||
Return value |
Returns TRUE if another file has been found in the list. |
|||||||||||||||||||||
See also |
||||||||||||||||||||||
Example |
|
WINAPP
INCLUDE <windows.ins>
LOGICAL L,next
CHARACTER*256 filename,filter,defpath
filter = "Free Fortran files
(*.f90)"//char(0)//"*.f90"//char(0) &
//"All files (*.*)"//char(0)//"*.*"//char(0)//char(0)
defpath = char(0) !Gives the current working directory
L = .TRUE.
next = .FALSE.
DO WHILE(L)
filename = char(0)
L=GET_MULTIPLE_FILENAMES@(0,"Dialog
Title",filename,256,filter,defpath,next)
next = .TRUE.
IF(L) PRINT*, trim(filename)
END DO
END