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


nezukou  2005-05-14 00:05:19  No: 89823  IP: [192.*.*.*]

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

編集 削除