Çözüldü Masaüstü ve F harici diskteki dosyaları listeleme nasıl yapılır?

Dim hangisi, aramayol, uzantilar As String
Dim satir, sutun As Long
Dim liste

Sub menu()
    uzantilar = Range("A8")
    liste = Split(uzantilar, ",")
    satir = 1
    sutun = 6
    Call GetFilesInFolder(Range("A2"), True)

    satir = 1
    sutun = 8
    Call GetFilesInFolder(Range("A5"), True)

End Sub

Sub desktopbul()
    Range("A2").Value = Environ("userprofile") & "\Desktop"
End Sub

Sub GetFilesInFolder(SourceFolderName As String, Subfolders As Boolean)

Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
'Dim r As Long
    Set FSO = New Scripting.FileSystemObject
    Set SourceFolder = FSO.GetFolder(SourceFolderName)
   
    For Each FileItem In SourceFolder.Files
           varmi = False
           For Z = LBound(liste) To UBound(liste)
               uzanti = FSO.GetExtensionName(FileItem.Path)
               If UCase(uzanti) = liste(Z) Or liste(Z) = "*" Then
                  varmi = True
                  Exit For
               End If
           Next Z
         
           If varmi Then
                satir = satir + 1
                Cells(satir, sutun).Value = FileItem.Path
                'Open File.Path workbook here and call your code on it
           End If


    Next FileItem

    If Subfolders = True Then
        For Each SubFolder In SourceFolder.Subfolders
            GetFilesInFolder SubFolder.Path, True
        Next SubFolder
    End If

    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
End Sub