vba 提取文件夹下所有excel文档名称报错？

我想提取文档下对应的excel文件名称 在网上查询后用了if判断以后 运行时卡死是什么原因？
Sub onesheet()

Dim xlsfile, ar(), n%
xlsfile = Dir(ThisWorkbook.Path & "\*.xls")
Do Until Len(xlsfile) = 0
''这里不用if判断执行没问题，加了if以后 运行vba excel直接卡死
''If ThisWorkbook.Name <> xlsfile Then
n = n + 1
ReDim Preserve ar(1 To n)
ar(n) = xlsfile
xlsfile = Dir
''End If
Loop
Debug.Print Join(ar)

End Sub

相关了解……