ファイルの複数選択 (ID:122491)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ShowOpen メソッドの実行前に、Flagsプロパティに CommonDialog1.Flags = CommonDialog1.Flags Or cdlOFNAllowMultiselect のように、cdlOFNAllowMultiselect を指定しておけばOKです。 この場合、FileNameプロパティには、複数のファイルを vbNullChar で区切られた形で渡されますので、たとえばそれを 下記のようにして得ることができます。 Dim Files() As String Files = Split(CommonDialog1.FileName, vbNullChar) If UBound(Files) < 0 Then Debug.Print "未選択" ElseIf UBound(Files) = 0 Then Debug.Print Files(0) Else If Not Files(0) Like "*\" Then Files(0) = Files(0) & "\" End If Dim I As Integer For I = 1 To UBound(Files) Debug.Print Files(0); Files(I) Next End If