Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Selecting multiple files

Sub GetImportFileName2()       Dim FileNames As Variant       Dim Msg As String       Dim I As Integer       FileNames = Application.GetOpenFilename(MultiSelect:=True)       If IsArray(FileNames) Then           Msg = "You selected:" & vbNewLine           For I = LBound(FileNames) To UBound(FileNames)               Msg = Msg & FileNames(i) & vbNewLine           Next i           MsgBox Msg       Else           MsgBox "No files were selected."       End If   End Sub