تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال عن الفولدرات
#1
عندي ملفات متداخلة بفولدر يعني مثلا

d:\good\good1\good2

الفولدر بداخلة عدد من الفولدرات وبعد ذالك الملفات داخل اخر فولدر اريد نقل اخر فولدر الي بداخلة الملفات الي مكان اخر مهما كان عدد الفولدرات مع تغير اسمة
الرد }}}}
تم الشكر بواسطة:
#2
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
الرد }}}}
تم الشكر بواسطة:
#3
حاولت اعدل الكود لان بية مشاكل ولكن لايعمل هل جربت الكود

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



   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
الرد }}}}
تم الشكر بواسطة:
#4
تفضل ولو في اي سؤال اخر ماعندكش اي مشكلة...


الملفات المرفقة
.rar   SearchDeep.rar (الحجم : 67.33 ك ب / التحميلات : 13)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال .. عن طريقة ادراج صورة من السكانر وطباعتها ناصر شير 0 29 أمس, 02:54 AM
آخر رد: ناصر شير
  [VB.NET] سؤال عن vb.net 2010 ناصر شير 5 60 أمس, 02:40 AM
آخر رد: ناصر شير
  سؤال حول تخزين الملفات abudawoodd 7 84 17-02-17, 11:59 PM
آخر رد: abudawoodd
  [VB.NET] سؤال بخصوص Next button Setup Factory dubai.eig 1 42 14-02-17, 07:23 PM
آخر رد: dubai.eig
  سؤال حول حماية المشروع Mohamed20 0 43 13-02-17, 10:35 PM
آخر رد: Mohamed20
  [VB.NET] سؤال بخصوص setup factory dubai.eig 0 61 02-02-17, 10:46 PM
آخر رد: dubai.eig
  سؤال فى اداه ListView Mohamed20 5 98 01-02-17, 02:03 AM
آخر رد: Mohamed20
  اول سؤال لي في منتداكم الرائع ..... من اين ابداء وبما ابداء البرمجة zin1zamanh 17 411 30-01-17, 09:55 PM
آخر رد: alsouf
Exclamation سؤال حول المعامل Ctype ndjakoub 2 110 17-01-17, 10:54 AM
آخر رد: silverlight
  سؤال محمد بن عطية 3 125 13-01-17, 12:10 AM
آخر رد: مساعدة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم