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