Try        
        Dim filepath as string = "d:\multicordertest\" 
        Dim filepathnew as string = "d:\multicordertest\renamed\" 

        ' assuming multicorderfiles are saved as mp4 else change extention
        Dim dirs As String() = Directory.GetFiles(filepath , "*.mp4")
        Dim vidfile As String 

        For Each vidfile In dirs

            Console.WriteLine(vidfile )
            ' get creation date of video
            Dim fileCreatedDate As DateTime = File.GetCreationTime(vidfile )

            ' create new fileame like dd-mm-yy hh-mm-ss.mp4
            Dim CreatedDate as String = fileCreatedDate .Day & "-" & fileCreatedDate .Month & "-" & fileCreatedDate .Year
            Dim CreatedTime as String = fileCreatedDate .Hour & "-" & fileCreatedDate .Minute & "-" & fileCreatedDate .Second
            Dim newfile as string = CreatedDate + " " + CreatedTime + ".mp4"   

            Console.WriteLine(filepathnew  &  newfile)

            ' rename/move file to new folder
            System.IO.File.Move(vidfile, filepathnew & newfile)

        Next 

    Catch e As Exception
        Console.WriteLine("The process failed:")
    End Try 

' ==========================================
' SETTINGS
' ==========================================
' Change to your actual input numbers or names
Dim targetInput As String = "1" 
Dim layerNumber As Integer = 1 
Dim sourceInputs() As String = {"2", "3", "4"}
' ==========================================

Dim xml As String = API.XML()
Dim x As New System.Xml.XmlDocument
x.LoadXml(xml)

' The correct XML path for vMix Dynamic Values is //dynamic/value1
Dim currentIndexNode As System.Xml.XmlNode = x.SelectSingleNode("//dynamic/value1")
Dim currentIndexStr As String = ""
If currentIndexNode IsNot Nothing Then
    currentIndexStr = currentIndexNode.InnerText
End If

Dim currentIndex As Integer = 0

' Attempt to convert the saved value to an integer
If Integer.TryParse(currentIndexStr, currentIndex) Then
    ' Move to the next input in the list
    currentIndex = currentIndex + 1
Else
    ' If the value is empty (e.g., the very first time the script runs)
    currentIndex = 0 
End If

' If we have reached the end of the list, start over from zero
If currentIndex >= sourceInputs.Length Then
    currentIndex = 0
End If

' Get the name/number of the next input from the list
Dim nextInput As String = sourceInputs(currentIndex)

' Print info in the vMix Scripting log for troubleshooting
Console.WriteLine("Found saved index: " & currentIndexStr)
Console.WriteLine("Changing to index: " & currentIndex & " (Which is Input: " & nextInput & ")")

' Build the SetLayer command and send it to vMix
Dim layerValue As String = layerNumber.ToString() & "," & nextInput
API.Function("SetLayer", Input:=targetInput, Value:=layerValue)

' Save the new index so vMix remembers it for the NEXT time the script is executed
API.Function("SetDynamicValue1", Value:=currentIndex.ToString())