visualizador Imagens trocar Dir por FSO Recursiva

Olá Colegas!

visualizador Imagens trocar Dir por  FSO Recursiva

tenho um visualizador de imagens em ACCESS mdb e
ele usa o Dir pra listar arquivos.

gostaria de trocar o Dir por FSO FileSystemObject.

segue abaixo trechos onde o dir aparece, e o arquivo anexo.
----------------------------------------------------
Dir(TopDir, vbDirectory)
-----------------------------------------------------------------
End If
       MyName = Dir    ' Get next entry.
   Loop
---------------------------------------------
gato!

O codigo vba a ser alterado de dir pra FSO é o abaixo:

---------------------------------------------------------------------
Private Sub TopDir_AfterUpdate()
On Error GoTo Err_TopDir_AfterUpdate

   Dim MyName As String, DirectoryList As String, FileList As String, AddFile As Variant
   
   If Right$([TopDir], 1) = "\" Then
      'OK
   Else
       [TopDir] = [TopDir] & "\"
   End If
   
  'Retrieve the first entry
   MyName = Dir(TopDir, vbDirectory)

   Do While MyName <> ""
      'Ignore the current directory and the encompassing directory.
       If MyName <> "." And MyName <> ".." Then
          'Use bitwise comparison to make sure MyName is a directory.
           If (GetAttr(TopDir & MyName) And vbDirectory) = vbNormal Then
              'Display entry if it is a file
               AddFile = False
               If ImageType = 1 Then
                   AddFile = True
               ElseIf ImageType = 3 And Right$(MyName, 3) = "bmp" Then
                   AddFile = True
               ElseIf ImageType = 4 And Right$(MyName, 3) = "gif" Then
                   AddFile = True
               ElseIf ImageType = 5 And Right$(MyName, 3) = "jpg" Then
                   AddFile = True
               ElseIf ImageType = 2 And (Right$(MyName, 3) = "bmp" Or Right$(MyName, 3) = "gif" Or Right$(MyName, 3) = "jpg") Then
                   AddFile = True
               End If
               If AddFile = True Then
                   FileList = IIf(FileList = "", "", FileList & ";'") & MyName & IIf(MyName = "" Or FileList = "", "", "'") & IIf(MyName = "", "", ";'" & Int(FileLen([TopDir] & MyName) / 1000) & "'")
               End If
           ElseIf (GetAttr(TopDir & MyName) And vbDirectory) = vbDirectory Then
              'Display entry if it is a directory
               DirectoryList = IIf(DirectoryList = "", "", DirectoryList & ";'") & MyName & IIf(MyName = "" Or DirectoryList = "", "", "'")
           End If
       End If
      MyName = Dir    ' Get next entry.
   Loop
   [DirList].RowSource = DirectoryList
   [ImageList].RowSource = FileList

Exit_TopDir_AfterUpdate:
   Exit Sub

Err_TopDir_AfterUpdate:
   Select Case Err
       Case 2176
       'Too many files to store in list box.
       MsgBox "There are too many files in the directory to show them all in the file list. Some will not be displayed."
       [ImageList].RowSource = Left$(FileList, 2048)
       Resume Next
   Case Else
       MsgBox Error
       Resume Exit_TopDir_AfterUpdate
   End Select
   
End Sub