VBA Fox編
【2】ダイアログボックスで複数ファイルを指定する
Dim Wfiles As Variant
Dim i As Long
Wfiles = Application.GetOpenFilename _
("全種類のファイル (*.*),*.*", , , , True) '複数指定可:True,単数指定:False
If IsArray(Wfiles) Then
For i = 1 To UBound(Wfiles)
Debug.Print Wfiles(i)
Next i
Else
MsgBox "ファイルが指定されていません!", vbInformation
End If