要对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