ファイルの複数選択

解決

ちこ 2005-06-12 06:20:13 No: 122490

現在、VB6.0使用です。
ファイル選択ダイアログで複数のファイルを選択して、そのファイル名を取得したいのですが、コモンダイアログでは無理でしょうか？
複数選択用に何か別のコントロールってあるのでしょうか？

魔界の仮面弁士 2005-06-12 07:03:23 No: 122491

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

ちこ 2005-06-12 07:50:58 No: 122492

そうなんですかぁ〜、大変助かりました(^^)
有難うございます。