コモンダイアログで複数ファイル選択

nezu 2005-05-14 09:15:46 No: 89832

VB6のコモンダイアログで複数ファイル選択ができているのですが、
選択数が多いと2回目以降、ダイアログが開かず困っています。
.MaxFileSize = 32000
と与えると、80ファイルくらいは全てファイル名を取得できるのですが、
2回目以降、ダイアログが開きません。
.MaxFileSize = 256
とすると、一度に選択できるファイル数は10ファイル程度に減りますが、
取得に失敗しても成功しても、2回目以降、ダイアログは開きます。
何か処理が足りないのでしょうか。
以下、抜粋ソースです。
アドバイスをお願い致します。
よろしくお願い致します。

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

        .Flags = cdlOFNHideReadOnly Or cdlOFNFileMustExist _
                    Or cdlOFNAllowMultiselect Or cdlOFNExplorer

        .MaxFileSize = 32000
        .ShowOpen
        multiFile = .FileName
    End With

クラゲ URL 2005-06-02 10:30:01 No: 89833

まさかとは思いますが、
.FileNameの初期化を行っていないのでは?????

   On Error GoTo CancelError
    With CommonDialog1
        .FileName = ""  '<------------------------- 追加してね
        .CancelError = True
        .DefaultExt = "bmp"
        .Filter = "ビットマップファイル (*.bmp)|*.bmp"

        .Flags = cdlOFNHideReadOnly Or cdlOFNFileMustExist _
                    Or cdlOFNAllowMultiselect Or cdlOFNExplorer

        .MaxFileSize = 32000
        .ShowOpen
        multiFile = .FileName
    End With