如何在 vba 即时窗口中显示目录？

【问题标题】：How to show directories in vba's immediate window?如何在 vba 即时窗口中显示目录？
【发布时间】：2020-04-24 12:57:38
【问题描述】：

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

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

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

现在点击enter，

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

【问题讨论】：

【解决方案1】：

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

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

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

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

【讨论】：