Option Explicit
Sub Test()
On Error Resume Next
Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & "*DIR.txt", Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Tab:=True
Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & "*DIR*.txt", Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Tab:=True
Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & "DIR*.txt", Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Tab:=True
End Sub