[محمد اسماعيل]

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

d:\good\good1\good2

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

[shwehdi4pc]

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

[shwehdi4pc]

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