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

Question

我想在vba的立即window中列出c:磁盘中的所有目录，在立即window中编写以下代码：

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

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

现在点击enter,

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

Answer 1

立即window不执行脚本；它会运行单独的语句，立即 当您点击 Enter（无论您是否刚刚输入该行）。您不能在该框中编写一系列此类可执行语句，这些语句必须是独立的。

但是你可以作弊，使用: 指令分隔符:

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

请记住，window 不超过 255 行 - 您必须写入文件才能输出更多内容并能够查看所有内容。