+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التعامل مع الملفات النصية (/showthread.php?tid=20006)
التعامل مع الملفات النصية - aftfm - 14-04-17
السلام عليكم ورحمة الله وبركاته
اريد نقل الملفات الموجودة بداخل المجدل 1 الى المجدل 2
في حالة أن اسم الملف به احرف عربية فقط
اما الملفات التي في اسماها لا يوجد احرف عربية تبقى مكانها في مجلد 1
RE: التعامل مع الملفات النصية - silverlight - 15-04-17
يمكنك ان تستخدم الكود التالي
اولا تقوم بتعريف مكان الفهرس الذي يحتوي علي كل الملفات
ثانيا تقوم بتعريف مكان الفهرس الذي سوف تنقل له الملفات
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
RE: التعامل مع الملفات النصية - aftfm - 15-04-17
ممكن طريق استخدام هذا الروتين
الف شكر تم الاستخدام بنجاح
بارك الله فيك