[aftfm]

السلام عليكم ورحمة الله وبركاته

اخواني هذا كود يقوم بنقل الملفات من مجلد من C الى مجلد في الـ D

لكن الكود يقوم بنسخ فقط الملفات وانا اريد نقل كل ما يوجد في المجلد نسخة ونقله الى المجلد الموجود في الـ D

PHP كود :

Private Sub CopeFileAndFolder()
        Dim T_True As Boolean = False
        Dim FOLDERDATE As String
        FOLDERDATE = Me.lblDateToDay.Text

        Dim drP As New DirectoryInfo("C:\P\WORK\")
        Dim drT As New DirectoryInfo("C:\T\WORK\")
        Dim filesInfoP() As FileInfo = drP.GetFiles("*.*", SearchOption.AllDirectories)
        Dim filesInfoT() As FileInfo = drT.GetFiles("*.*", SearchOption.AllDirectories)
        For Each f As FileInfo In filesInfoP
            If Not My.Computer.FileSystem.DirectoryExists("D:\XBACKUP\P\" & FOLDERDATE & "\work\") Then My.Computer.FileSystem.CreateDirectory("D:\XBACKUP\P\" & FOLDERDATE & "\work\")
            f.CopyTo("D:\XBACKUP\P\" & FOLDERDATE & "\work\" & f.Name & "", True)
            T_True = True
        Next
        For Each f As FileInfo In filesInfoT
            If Not My.Computer.FileSystem.DirectoryExists("D:\XBACKUP\T\" & FOLDERDATE & "\work\") Then My.Computer.FileSystem.CreateDirectory("D:\XBACKUP\T\" & FOLDERDATE & "\work\")
            f.CopyTo("D:\XBACKUP\T\" & FOLDERDATE & "\work\" & f.Name & "", True)
            T_True = True
        Next
       
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CopeFileAndFolder()
    End Sub