コモンダイアログでの複数ファイル選択するには

nezukou 2005-05-14 09:05:19 No: 89823

On Error GoTo CancelError
    With FormCFGc(0).CommonDialog1
        .CancelError = True
        .DefaultExt = "bmp"
        .Filter = "ビットマップファイル (*.bmp)|*.bmp"
'       .FilterIndex = 1
'       .FileName = ""

        .Flags = cdlOFNHideReadOnly Or cdlOFNFileMustExist _
                    Or cdlOFNAllowMultiselect Or cdlOFNExplorer

        .MaxFileSize = 256     '5124 32000 256
        .ShowOpen
        multiFile = .FileName
    End With