How do I change the code to open a browse box to a constant folder path with all the files selected in it?

For example, C:\Batch\


I have tried this but it didn't work out:

FileList = Application.GetOpenFilename _
(FileFilter:="C:\Batch\(*.*), *.*", _
Title:="Select files", MultiSelect:=True)


I am using this macro to open a group of text files in one worksheet.


Thank you,

Adam






Sub InsertDataFromTextFiles()
Dim ColumnOffset As Long
Dim DestCell As Range
Dim i As Long
Dim SourceData As Range
Dim FileList As Variant


Sheets("Sheet1").Select

Const ColumnsPerFile As Long = 13

FileList = Application.GetOpenFilename _
(FileFilter:="All Files(*.*), *.*", _
Title:="Select files", MultiSelect:=True)

'returns an array if at least 1 file is selected
'if user cancelled, returns Boolean = False
If TypeName(FileList) <> "Variant()" Then Exit Sub

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set DestCell = Selection.Range("A1")
ColumnOffset = -ColumnsPerFile 'will increment to 0 on 1st pass

For i = LBound(FileList) To UBound(FileList)
Set SourceData = _
Workbooks.Open(FileName:=FileList(i)).Worksheets(1 ).UsedRange



Selection.CurrentRegion.Select
Selection.Copy
ColumnOffset = ColumnOffset + ColumnsPerFile
DestCell.Offset(0, ColumnOffset).PasteSpecial Paste:=xlFormulas

Application.CutCopyMode = False
SourceData.Parent.Parent.Close SAVECHANGES:=False
Next i

DestCell.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True


End Sub 'InsertDataFromTextFiles