尝试访问同一文件夹中的其他文件，但将文件移到文件夹

Question

我正在尝试访问与程序相同的文件夹中的所有其他文件，但它想要转到整个目录中的文件。我得到的基本上是我告诉它要做但我仍然是vba的新手，并且不知道完成我想要的语法。有没有办法让我从程序中获取当前文件夹位置并让它只浏览该文件夹中的所有文件？

此外，我需要一个不使用Scripting.Object的解决方案，因为我遇到需要为此下载内容的问题而且我感到不舒服，要求使用此工具的人也会特别下载内容因为他们将使用安全的.mil计算机（而不是.com计算机）

directory = ActiveWorkbook.Path 'Also tried CurDir()
fileName = Dir(directory & "*.xl??")
Do While fileName <> ""
   ...
   fileName = Dir()
Loop

Answer 1

尝试

ThisWorkbook.Path 
MsgBox ThisWorkbook.Path ' Make sure its the right path...

和

Filename = Dir(directory & "\" & "*.xl??")