Hard Code Folder Path for Browse Box

Hello,

I found the following code on this excellent site. It opens a Browse Box and allows the user to multi select text files for import.

I need to edit this to hard code a folder path and select all text files within the folder, without having the browse box open. ( ie) C:\Batch\*.txt )

The Browse Box opens at

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

How would I go about editing the following code to accomplish this? Thank you kindly in advance.

Adam


_____________________________

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


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

oops! The above code was cut off. Here it is:

________________________________

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