[aftfm]

الف شكر وجدت هذا الكود ومشي الحال 100%

وهذا الكود للاستفادة منه

PHP كود :

Public Shared Function moveDirectoryContent(ByVal srcDir As String, ByVal destDir As String) As Integer
        Dim countFile As Integer = 0
        If (Not Directory.Exists(destDir)) Then
            Directory.CreateDirectory(destDir)
        End If
        Dim listFiles() As String = Directory.GetFileSystemEntries(srcDir)
        Dim curFile As String

        For Each curFile In listFiles
            If Directory.Exists(curFile) Then
                countFile = countFile + moveDirectoryContent(curFile, Path.Combine(destDir, Path.GetFileName(curFile)))
            Else
                Dim dstFile = Path.Combine(destDir, Path.GetFileName(curFile))
                File.Copy(curFile, dstFile, True)
                countFile = countFile + 1
            End If
        Next
        Return countFile
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim FOLDERDATE As String
        FOLDERDATE = Me.lblDateToDay.Text
        If Not My.Computer.FileSystem.DirectoryExists("D:\XBACKUP\P\" & FOLDERDATE & "\work\") Then My.Computer.FileSystem.CreateDirectory("D:\XBACKUP\P\" & FOLDERDATE & "\work\")
        If Not My.Computer.FileSystem.DirectoryExists("D:\XBACKUP\T\" & FOLDERDATE & "\work\") Then My.Computer.FileSystem.CreateDirectory("D:\XBACKUP\T\" & FOLDERDATE & "\work\")

        moveDirectoryContent("C:\P\WORK\", "D:\XBACKUP\P\" & FOLDERDATE & "\work\")
        moveDirectoryContent("C:\T\WORK\", "D:\XBACKUP\T\" & FOLDERDATE & "\work\")
    End Sub