Concat-Videos.ps1

$ErrorActionPreference = 'Stop'

$outputPath = "D:\Desktop\$(date '+%Y%m%d%H%M%S').mp4"

$listFile = New-TemporaryFile
try {
    $files = $args | ForEach-Object { Get-Item $_ }
    foreach ($file in $files) {
        Out-File -Encoding UTF8 -Append -FilePath $listFile -InputObject "file '$($file.FullName)'"
    }
    $argFile = New-TemporaryFile
    $creationTime = try {
        Out-File -Encoding UTF8 -FilePath $argFile -InputObject $files[0].FullName
        exiftool.exe -CreateDate -api largefilesupport=1 -api QuickTimeUTC -charset FileName=UTF8 -s -s -s -d '%Y-%m-%d %H:%M:%S' -@ $argFile
    }
    finally {
        Remove-Item -Force $argFile
    }
    ffmpeg.exe -f concat -safe 0 -i $listFile -metadata creation_time="$creationTime" -c copy $outputPath
}
finally {
    Remove-Item -Force $listFile
}