#Defining remote and local path to folders with presentation
$RemotePath = "O:\_QEESH\Interní komunikace\Informační tabule\TV\"
$LocalPath = "C:\ppt\"

#Defining powerpoint aplication and environment variables



$soubor = Get-ChildItem $LocalPath -File
$ppt = ($Soubor | Select-Object FullName)

$RemFile = (Get-ChildItem $RemotePath -file)
$LocFile = (Get-ChildItem $LocalPath -File)

"
$RemotePath shows $RemFile files to copy
"
"-----------------------------------------------------"

#Checking date and then copying file from RemotePath to LocalPath
foreach ($file in $RemFile) {
    Copy-Item -Path $file.fullname -Destination $LocalPath -Recurse
    " [*] $file "
}

"
$LocalPath shows $Locfile to run
"
Write-Output $ppt



foreach ($file in $soubor )  {
    Write-Progress -Activity "Working..."
    Start-Sleep -Seconds 2
    $Application = New-Object -ComObject PowerPoint.Application
    $ppSlideShowDone = 5
    $ppAdvanceOnTime = 2
    $pres = $Application.Presentations.Open($file)
    $pres.SlideShowSettings.AdvanceMode = $ppAdvanceOnTime
    $Pres.SlideShowSettings.StartingSlide = 1
    $pres.SlideShowSettings.EndingSlide = $pres.Slides.Count
    $pres.SlideShowSettings.Run()
    do {
        Start-Sleep -Seconds 2
        Write-Progress -Activity "konec"
    } until ($pres.SlideShowSettings.Run.View.State -eq $ppSlideShowDone)
    Write-Progress -Activity "smycka"
}