[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