Ошибка MS Access VBA во время выполнения «13» Несовпадение типов при поиске имен папок / подпапок

Question

Вот код VBA, который я использую в MS Access (с сайта поддержки Microsoft - без изменений):

**

Private Sub Command3_Click()
         Dim fso As New FileSystemObject
         Dim f As Folder, sf As Folder, path As String
         'Initialize path.
         path = Environ("windir")
         'Get a reference to the Folder object.
         Set f = fso.GetFolder(path)
         'Iterate through subfolders.
         For Each sf In f.SubFolders
           Debug.Print sf.Name
         Next
      End Sub

**

I Я также создал каталог "C: \ Test" и пробовал path = "C: \ Test \" и path = "C: \ Test". Мне известно, что ссылка "Microsoft Scripting Runtime" необходима для быть включен - и это.

Код компилируется без ошибок. Несмотря на вышесказанное, я по-прежнему получаю несоответствие типов во время выполнения «13» при попытке запустить его.

Что-то еще я делаю не так?

Answer 1

Попробуйте позднюю привязку

      Private Sub Command3_Click()
       Dim fso As Object
     Set fso = CreateObject("Scripting.FileSystemObject")

      Dim f As Object, sf As Object, path As String
     'Initialize path.
     path = Environ("windir")
     'Get a reference to the Folder object.
     Set f = fso.GetFolder(path)
     'Iterate through subfolders.
     For Each sf In f.SubFolders
       Debug.Print sf.Name
     Next
  End Sub