Import Macro Trying To Gain Acces To File That Doesn't Exist.

I get the following error:

"Run-time error '1004': "cmc4906.xls" File cannot be found.
Check the spelling of the file name and verify that the file
location is correct."

I am not trying to open a xls file. The path is clear and there are no file names with extensions in the path name (C:Weekly). I'm unclear of why the code thinks its looking for file cmc4906.xls and a xls file at that.

Sub Import()

Dim inputfile As Variant
Dim path As Variant

path = ("C:Weeklys")
inputfile = Dir("C:Weeklys")

Do While inputfile <> ""

Workbooks.OpenText Filename:=inputfile, Origin:=437, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 2), Array(6, 2), Array(7, 1), Array(8, 1), Array(9, 1), Array(10 _.............