VBA поиск вложенных папок папки

Question

Я пытаюсь найти способ с использованием Access 2003 (да, я знаю, это древний), для поиска всех подкаталогов папки, чтобы определить, существует ли файл. Если он найден, его нужно ввести в суб, который включает или выключает кнопку. Я также хотел бы сохранить путь, поскольку мне понадобится эта кнопка для ссылки на файл. Итак, в качестве краткого объяснения, используя Access, я хотел бы найти в папке диск, у которого есть подпапки, каждая из которых имеет свои собственные подпапки. Я нашел много веб-сайтов, включая следующий, но ни один из ответов не работает. Loop Through All Subfolders Using VBA

Любая помощь будет оценена по достоинству.

Answer 1

`Dim FileSystem как объект дим HostFolder As String

HostFolder = "C: \"

Набор FileSystem = CreateObject ("Scripting.FileSystemObject") DoFolder FileSystem.GetFolder (HostFolder)

Sub DoFolder (Папка) Dim пОДПАПКА Для каждой подпапки В Folder.SubFolders DoFolder пОДПАПКА Следующая Dim File Для каждого файла в папке. Файлы «Работайте над каждым файлом Next End Sub` Дает мне неправильную процедуру и говорит, что ошибка находится в папке хоста, которую я использовал. Тем не менее, это тот же, который я использовал для других моих образцов кода без проблем.

Public Sub NonRecursiveMethod() 
    Dim fso, oFolder, oSubfolder, oFile, queue As Collection 

    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set queue = New Collection 
    queue.Add fso.GetFolder("your folder path variable") 'obviously replace 

    Do While queue.Count > 0 
     Set oFolder = queue(1) 
     queue.Remove 1 'dequeue 
     '...insert any folder processing code here... 
     For Each oSubfolder In oFolder.SubFolders 
      queue.Add oSubfolder 'enqueue 
     Next oSubfolder 
     For Each oFile In oFolder.Files 
      '...insert any file processing code here... 
     Next oFile 
    Loop 

End Sub 

Дает мне ошибку, потому что последний следующий не находится в цикле for в соответствии с Access VBA. Я нашел еще один код, который мне удалось получить. Это с сайта http://www.ammara.com/access_image_faq/recursive_folder_search.html Однако это очень медленно. Выполняется еще 30 секунд, когда все было в одной папке, простая проверка dir будет мгновенной. Спасибо тем, кто предложил какую-то помощь.