VBA フォルダの複数選択ができない

いつもお世話になります

今、フォルダを複数選択してfileを整理するプログラムを作成していますが
下記のようにAllowMultiSelect = Trueにしても複数選択できません
msoFileDialogFilePickerでは可能になるのですが、分かりましたら教えてください


With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "フォルダを選択"
.AllowMultiSelect = True

'ファイルが選択された
If .Show = True Then
For i = 1 To .SelectedItems.Count
MyPath = .SelectedItems(i)
nnn = InStrRev(MyPath, "\")
moji2 = Mid(MyPath, 1, nnn)
moji1 = Mid(MyPath, nnn + 1)
With ListView2.ListItems.Add
.Text = moji1
.SubItems(1) = moji2
End With
Next i
Else
Exit Sub
End If
End With


以上、よろしくお願いいたします

No.1 ベストアンサー 回答者： ママチャリ 回答日時： 2018/05/05 15:47

このプロパティのヘルプには、以下のように書かれています。

フォルダを選択するダイアログでは使えないということのようです。

このプロパティは、[参照] (フォルダー参照) または [名前を付けて保存] ダイアログ ボックスには影響しません。これらのダイアログ ボックスでは複数のファイルを選択することはありません。

この回答へのお礼

そーなんですね、残念

ありがとうございました
これからもよろしくお願い申し上げます

お礼日時：2018/05/07 08:59