Как показать каталоги в непосредственном окне vba?

Question

Я хочу перечислить все каталоги на диске c: в непосредственном окне vba, напишите следующий код в непосредственном окне:

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

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

Теперь нажмите enter,

Как исправить мой код VBA, чтобы отображать все каталоги в c: в непосредственном окне VBA?

Answer 1

Окно немедленное не выполняет сценарий; он запускает отдельные операторы, немедленно , когда вы нажимаете Введите (независимо от того, набрали ли вы строку или нет). Вы не можете написать в сценарии последовательность таких исполняемых операторов, операторы должны быть автономными.

Но вы можете обмануть, используя : разделитель инструкций :

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

Имейте в виду, что окно содержит не более 255 строк - вам нужно записать в файл, чтобы вывести больше, чем это, и иметь возможность просматривать все это.