منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

d:\good\good1\good2

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

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

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

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



   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

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