[aftfm]

السلام عليكم ورحمة الله وبركاته

اريد نقل الملفات الموجودة بداخل المجدل 1 الى المجدل 2 
في حالة أن اسم الملف به احرف عربية فقط 

اما الملفات التي في اسماها لا يوجد احرف عربية تبقى مكانها في مجلد 1

[silverlight]

يمكنك ان تستخدم الكود التالي

اولا تقوم بتعريف مكان الفهرس الذي يحتوي علي كل الملفات
ثانيا تقوم بتعريف مكان الفهرس الذي سوف تنقل له الملفات

PHP كود :

   ' تعريف اسم الفهرس المراد نقل الملفات منه
    Dim src As String = "ضع اسم الفهرس"
    '' تعريف اسم الفهرس المراد نقل الملفات اليه
    Dim dest As String = "ضع اسم الفهرس" 


أخيرا تقوم بنقل الملفات باستخدام الروتين التالي

PHP كود :

   Private Sub MoveFiles(srcDirectory As String, destDirectory As String)
        Dim allFiles As IEnumerable(Of String) = IO.Directory.EnumerateFiles(srcDirectory)
        If allFiles IsNot Nothing Then
            For Each currentFile As String In allFiles
                Dim fileName = currentFile.Substring(srcDirectory.Length + 1)
                If fileName.Any(Function(c) c > ChrW(255)) Then
                    IO.Directory.Move(currentFile, IO.Path.Combine(destDirectory, fileName))

                End If
            Next
        End If
    End Sub 


[aftfm]

ممكن طريق استخدام هذا الروتين

---

الف شكر تم الاستخدام بنجاح

بارك الله فيك