' -------------------------------------------------------------------- 
' 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

Result:

Result not displayed for this example.