如何在 vba 的直接窗口中显示目录？

Question

我想在vba的即时窗口中列出c: disk中的所有目录，在即时窗口中编写以下代码：

Dim FileName As String
FileName = Dir("C:\", vbDirectory)

Do While FileName <> ""
    Debug.Print FileName
    FileName = Dir()
Loop

现在点击enter ，

如何修复我的 vba 代码以在 vba 的直接窗口中显示c:中的所有目录？

Answer 1

即时窗口不执行脚本； 它会在您按下Enter 键时立即运行单个语句（无论您是否输入了该行）。 您不能在该框中编写一系列此类可执行语句的脚本，这些语句必须是自包含的。

但是你可以通过使用:指令分隔符来作弊：

fn=dir("C:\",vbdirectory):do while fn<>"":?fn:fn=dir:loop

请记住，该窗口不超过 255 行 - 您必须写入一个文件以输出更多内容并能够查看所有内容。