Merhaba Sayın @yyhy

Aşağıdaki kodu dener misiniz?

Sub RDPCopyToLocal()

  

  Dim FSO, Fldr, FSOFile, FSOFldr As Object

  Dim SourcePath, TargetPath As String

  

  SourcePath = "\\192.168.42.175\Koordine\Görevliler\Kaynak\"

  TargetPath = "D:\Belgelerim\Haftalık\"

  

  Set FSO = CreateObject("Scripting.FileSystemObject")

  Set Fldr = FSO.GetFolder(SourcePath)

  

  If FSO.FolderExists(Fldr) Then

    For Each FSOFldr In FSO.GetFolder(SourcePath).SubFolders

        For Each FSOFile In FSOFldr.Files

            If Right(FSOFile, 4) = "xlsx" Then

            FSOFile.Copy TargetPath

            End If

        Next

    Next

  End If



End Sub