[ابو خليل99]

هل من مساعدة !!!!

---

وجدت هذا الكود يعمل بشكل جيد ولكن يقوم باعادة تسمية الملفات وليس نسخها لمسار اخر 

حاولت تعديل الكود ولكن للاسف مثل مثال الاخ سعود لا يقوم بالنقل 

ممكن مساعدة في تعديل الكود ؟؟؟ 

الكود "

كود :

Module Module1

   Sub Main()
       Searcher("E:\")
   End Sub

   Sub Searcher(ByVal path As String)
       For Each file As String In System.IO.Directory.GetFiles(path)
           Try
               If file.EndsWith(".pdf") Then
                   System.IO.File.Copy(file, file.Replace(".pdf", "_.pdf"))
               End If
           Catch : End Try
       Next
       For Each directory As String In System.IO.Directory.GetDirectories(path)
           Try : Searcher(directory) : Catch : End Try
       Next
   End Sub
End Module