VBA Найти все файлы, находящиеся в корневой директории диска C

Для этого можно использовать следующий код на VBA:

Sub FindFilesInRootDirectory()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim rootPath As String
    
    ' Указываем корневую директорию
    rootPath = "C:\"
    
    ' Создаем объект FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' Получаем объект папки корневой директории
    Set objFolder = objFSO.GetFolder(rootPath)
    
    ' Проходим по всем файлам в корневой директории и выводим их имена
    For Each objFile In objFolder.Files
        Debug.Print objFile.Name
    Next objFile
    
    ' Освобождаем ресурсы
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

Этот код открывает корневую директорию диска C и выводит имена всех файлов, находящихся в этой директории. Вы можете изменить rootPath на другой путь, если вам нужно найти файлы в другой директории.