منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] سؤال عن الفولدرات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=10994)

سؤال عن الفولدرات - محمد اسماعيل - 24-12-14

عندي ملفات متداخلة بفولدر يعني مثلا

d:\good\good1\good2

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

RE: سؤال عن الفولدرات - shwehdi4pc - 24-12-14

imports system.IO
path = d:\good
Sub DeeplyFile(path As String)

Dim dir = New DirectoryInfo(path)

For Each dir In dir.GetDirectories
DeeplyFile(dir.FullName)
Next

Dim MoveDir = New DirectoryInfo("F:\MovingFolder")
Directory.Move(dir.FullName, MovingFolder.FullName)
End Sub

RE: سؤال عن الفولدرات - محمد اسماعيل - 24-12-14

حاولت اعدل الكود لان بية مشاكل ولكن لايعمل هل جربت الكود

دة بعد التعديل واريد طريقة الاستدعاء



   Sub DeeplyFile(ByVal path As String)
       path = "D:\good"
       Dim dir = New DirectoryInfo(path)

       For Each dir In dir.GetDirectories
           DeeplyFile(dir.FullName)
       Next

       Dim MoveDir = New DirectoryInfo("F:\MovingFolder")
       Directory.Move(dir.FullName, MoveDir.FullName)
   End Sub

   Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
       
       DeeplyFile("F:\MovingFolder")
   End Sub

RE: سؤال عن الفولدرات - shwehdi4pc - 25-12-14

تفضل ولو في اي سؤال اخر ماعندكش اي مشكلة...