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
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
