 |
BCX Console Demonstration Program S149.bas
|
' --------------------------------------------------------------------
' Shows how to multi-select files using Windows common dialog
' Thanks to Larry Keys for enhancing GETFILENAME$ to support this
' --------------------------------------------------------------------
DIM
A$ *
500000
DIM
FileName$[
10000
]
DIM
i, o
A$ =
GETFILENAME$
_
(
"OPEN"
, "Bas Files(*.bas)|*.bas;"
, 0
, NULL, OFN_EXPLORER|OFN_ALLOWMULTISELECT)
IF
INCHR
(
A$, ","
)
> 0
THEN
o =
SPLIT
(
FileName$, A$, ","
)
'multiple files separated by commas!
FOR
i =
1
TO
o -
1
PRINT
i; ") "
; FileName$[
i]
NEXT
ELSE
PRINT
A$
END
IF