28-05-19, 12:19 PM
(آخر تعديل لهذه المشاركة : 28-05-19, 12:31 PM {2} بواسطة ابو خليل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