' Set the extension and path for the files to search for
Dim szExt As String = ".xml"
Dim szFolder As String = "E:\vscheduler"

' Set the path for the new folder
Dim currentDate As String = DateTime.Now.ToString("dd-MM")
Dim szNewFolder As String = "E:\vscheduler\" & currentDate

' Create the new folder if it doesn't exist
If (Not System.IO.Directory.Exists(szNewFolder)) Then
    System.IO.Directory.CreateDirectory(szNewFolder)
End If

' Set the date and time to check for
Dim searchDate As New Date(2023, 2, 4) ' Set the desired date here
Dim searchTime As New TimeSpan(19, 20, 0) ' Set the desired time here

' Check if today's date is the same as the desired date and the current time is past the desired time
If (DateTime.Today = searchDate And DateTime.Now.TimeOfDay > searchTime) Then
    ' Loop through the files in the folder
    For Each szFile As String In System.IO.Directory.GetFiles(szFolder)
        Dim fi As New System.IO.FileInfo(szFile)
        Dim fileDate As Date

        ' Check if the file extension is .xml
        If (fi.Extension = szExt) Then
            fileDate = fi.LastWriteTime

            ' Check if the file was modified on the desired date
            If (fileDate.Date = searchDate.Date) Then
                ' Set the new path for the file
                Dim szNewFilePath As String = System.IO.Path.Combine(szNewFolder, System.IO.Path.GetFileName(szFile))

                ' Copy the file to the new folder
                System.IO.File.Copy(szFile, szNewFilePath, True)

                ' Delete the file from the initial folder
                System.IO.File.Delete(szFile)
            End If
        End If
    Next

    ' Set the path for the folder containing the new ads
    Dim szAdFolder As String = "E:\vscheduler\newads"

    ' Loop through the files in the new ads folder
    For Each szAdFile As String In System.IO.Directory.GetFiles(szAdFolder)
        ' Check if the file extension is .xml
        If (System.IO.Path.GetExtension(szAdFile) = szExt) Then
            ' Set the new path for the file
            Dim szNewAdFilePath As String = System.IO.Path.Combine(szFolder, System.IO.Path.GetFileName(szAdFile))

            ' Copy the file to the scheduler folder
            System.IO.File.Copy(szAdFile, szNewAdFilePath, True)
        End If
    Next
End If