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