VB6.0で、ファイルのマルチセレクトダイアログでエラーがでます。

質問

VB6.0で、ファイルのマルチセレクトダイアログでエラーがでます。
ファイルを10個ほど選択ならエラーがでません。
250個ほどファイルを選択したいのですが、
コードを何度みなおしてもわかりません。
どなたか、どこをどう修正したらよいのかアドバイスをいただけませんでしょうか。
お手数をおかけしますがよろしくお願いします。

エラー箇所は下部の
For i = 1 To UBound(GetFileName)
です。

Public Function apiGetOpenFileName(nHandle As Long, nFilter As String, nDir As String) As Variant
Dim OFN As OPENFILENAME 'OPENFILENAME構造体
Dim Ret As Long '戻り値

With OFN '構造体の設定
.Flags = OFN_PATHMUSTEXIST Or _
OFN_FILEMUSTEXIST Or _
OFN_HIDEREADONLY Or _
OFN_ALLOWMULTISELECT Or OFN_EXPLORER 'マルチセレクト追加
.hInstance = App.hInstance 'インスタンスハンドルを設定
.hwndOwner = nHandle 'ウインドウハンドルを設定
.lpstrTitle = "ファイルを開く" 'コモンダイアログのタイトルを設定
.lpstrFilter = nFilter 'フィルタを設定
.lStructSize = Len(OFN) '構造体のサイズを設定
.nMaxFile = 257 'ファイル名のバッファのサイズを設定
.lpstrFileTitle = String(257, Chr(0)) 'フルパス用のバッファを確保
.nMaxFileTitle = 257 'フルパス用のバッファのサイズを設定
.lpstrFile = String(257, Chr(0)) 'ファイル名のバッファを確保
.lpstrInitialDir = nDir 'デフォルトのディレクトリを指定
End With

Ret = GetOpenFileName(OFN) '「ファイルを開く」ダイアログボックスを表示する

If Ret = 0 Then '[キャンセル]を押した時
apiGetOpenFileName = vbNullString
Exit Function
Else '[OK]を押した時
apiGetOpenFileName = Split(OFN.lpstrFile, Chr(0))
End If

End Function

' ファイル名を取得する
・・・コード省略

Dim GetFileName As Variant 'ファイル名(フルパス)
GetFileName = apiGetOpenFileName(Form1.hWnd, strFilter, strDir) 'ダイアログ表示

'ファイル名取得
j = 1
For i = 1 To UBound(GetFileName)　←ここでエラーが出ます
If GetFileName(i) <> "" Then
strDFname(j) = GetFileName(i)
j = j + 1
End If
Next i

回答No.1

BellBell · ベストアンサー

おそらく、バッファサイズの問題でしょうね。

.nMaxFile = 257 'ファイル名のバッファのサイズを設定
.lpstrFileTitle = String(257, Chr(0)) 'フルパス用のバッファを確保
.nMaxFileTitle = 257 'フルパス用のバッファのサイズを設定
.lpstrFile = String(257, Chr(0)) 'ファイル名のバッファを確保

普通に考えると、250どころか50ファイルも同時選択できないバッファサイズでしょうね。

その上で、apiGetOpenFileName関数からの返り値を、エラーチェック(返り値がvbNullStringであるか否か)もせずにUBound(GetFileName)としている為に、エラー発生というところですね。

バッファサイズの257ってのは、Windowsのフルパスファイル名が最長(アスキーコードで)256バイトってのに合わせたサイズだと思われます。
つまり、1ファイル限定であれば全然問題ない関数仕様。
1ファイル限定のサンプルコードを流用ってとこですかね？

テストで10ファイル程を選択してエラーにならなかったのは、通常の運用方法ではそれほど深いフォルダ階層にとてつもなく長いファイル名を付けることはない、という偶然によって問題が顕在化しなかったというダケですね。

※個人的には、250ファイルも同時選択する可能性があるのであれば、ファイルダイアログは使わずに、独自画面を作成して少しでも選択しやすいようにします。
さらに、エクスプローラからのドラッグ&ドロップ機能も付けます。

お礼

回答ありがとうございます。
ご指摘の通りバッファサイズの問題だと思います。
50ファイルくらいまでなら選択できるようになりました。
バッファサイズを大きく取ると、「メモリが不足しています」や「メソッドに失敗しました」などが出てきます。
ＰＣのメモリを増やさないとできなさそうですので、他の人のＰＣで試してみます。