المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة :
18
الشكر: 381
تم شكره 381 مرات في 232 مشاركات
24-12-14, 05:54 PM
(آخر تعديل لهذه المشاركة : 24-12-14, 09:47 PM {2} بواسطة محمد اسماعيل .)
عندي ملفات متداخلة بفولدر يعني مثلا
d:\good\good1\good2
الفولدر بداخلة عدد من الفولدرات وبعد ذالك الملفات داخل اخر فولدر اريد نقل اخر فولدر الي بداخلة الملفات الي مكان اخر مهما كان عدد الفولدرات مع تغير اسمة
المشاركات : 100
المواضيع 15
الإنتساب : Jun 2014
السمعة :
5
الشكر: 7
تم شكره 228 مرات في 23 مشاركات
24-12-14, 08:04 PM
(آخر تعديل لهذه المشاركة : 24-12-14, 08:05 PM {2} بواسطة 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
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة :
18
الشكر: 381
تم شكره 381 مرات في 232 مشاركات
24-12-14, 09:28 PM
(آخر تعديل لهذه المشاركة : 24-12-14, 09:48 PM {2} بواسطة محمد اسماعيل .)
حاولت اعدل الكود لان بية مشاكل ولكن لايعمل هل جربت الكود
دة بعد التعديل واريد طريقة الاستدعاء
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
المشاركات : 100
المواضيع 15
الإنتساب : Jun 2014
السمعة :
5
الشكر: 7
تم شكره 228 مرات في 23 مشاركات
تفضل ولو في اي سؤال اخر ماعندكش اي مشكلة...
الملفات المرفقة
SearchDeep.rar (الحجم : 67.33 ك ب / التحميلات : 39)