تقييم الموضوع :
  • 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 ك ب / التحميلات : 23)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] سؤال حول كيفية ربط السكانر بمشروع vb.net safalo 1 42 19-09-17, 03:48 PM
آخر رد: أبو نوره
  [سؤال] اعذروني اخواني سؤال في الفيس بوك لسه مبتدئ 0 39 16-09-17, 02:09 PM
آخر رد: لسه مبتدئ
  سؤال مستعجل اخواني Amjad 5 139 08-09-17, 07:20 PM
آخر رد: طـلال
  سؤال مستعجل اخواني وضروري Amjad 2 99 08-09-17, 05:42 AM
آخر رد: Amjad
  [سؤال] سؤال ضروري (الصوره) DF.12 0 74 28-08-17, 03:08 PM
آخر رد: DF.12
  [سؤال] سؤال بخصوص الListBox ابو روضة 12 412 23-08-17, 03:46 PM
آخر رد: ابو ليلى
  سؤال من الخبراء خاص بالتحزيم نبيل كونكت 0 61 19-08-17, 10:40 AM
آخر رد: نبيل كونكت
  سؤال الاتصال بقاعدة بيانات عن طريق Web Service كفاح 8 193 12-08-17, 01:29 AM
آخر رد: سلامات
  [سؤال] سؤال عن الرقم القومى عادل م 2 121 08-08-17, 05:12 PM
آخر رد: Amir_alzubidy
  سؤال حول تحديث برنامج ndjakoub 18 509 04-08-17, 01:49 AM
آخر رد: سعود

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


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