我这个循环哪里错了？

[yunong]

要对test文件夹下的所有xls文件进行某项操作，我现在用i=i+i代替了那个函数，主要是先检验loop是否有效，但是debug，i=0就出来了，根本没有进行足够的循环，我test文件夹下有20个xls文件，应该循环20次才对呀，麻烦各位帮我看看哪里出错了？
Sub multirun()
Dim filename As String
Dim i As Integer
Dim pth As String, name As String
i = 0
pth = "D:\mfe\TEST"
name = Dir(pth & "*.xls")
Do Until name = ""
'Do While Len(filename)
i = i + 1
name = Dir()
Loop
MsgBox ("The loop ran " & i & " times.")
End Sub

[of123]

pth = "D:\mfe\TEST\"

[东方之珠]

pth后面少了一个“\”，像这样的问题，设置断点即可找到原因！