Estoy configurando una presentación de diapositivas de un espacio comercial. Lo ideal es tener una carpeta de videos e imágenes que puedan agregarse o eliminarse y actualizarán la presentación de diapositivas. Similar al protector de pantalla de diapositivas, pero con capacidad de video. ¿Hay una aplicación para hacer esto o algo que se pueda escribir?
/Applications/Photos.app y ve a Archivo > Nuevo álbum. /Applications/Utilities/Script Editor.app
Aquí está el código (editado por @ wch1zpink):
set imageNameExtensions to {"jpg", "jpeg", "png", "tiff", "bmp", "gif"}
set videoNameExtensions to {"mov", "mp4", "m4v", "avi"}
set nameExtensions to (videoNameExtensions & imageNameExtensions)
set myFolder to (choose folder) as text
set theChoice to display dialog ¬
"Select Your Option" buttons {"Cancel", "Main Folder", "Main Folder And Sub-Folders"} ¬
default button 3 ¬
cancel button 1 ¬
with title ¬
"CHOOSE A FOLDER" giving up after 30
if button returned of theChoice is "Main Folder And Sub-Folders" then
tell application "Finder"
set mediaItems to (files of (entire contents of folder myFolder) ¬
whose name extension is in nameExtensions) as alias list
end tell
else if button returned of theChoice is "Main Folder" then
tell application "Finder"
set mediaItems to (files of (folder myFolder) ¬
whose name extension is in nameExtensions) as alias list
end tell
end if
tell application "Photos"
import mediaItems into container named "Store Display" with skip check duplicates
start slideshow using media items of album "Store Display"
end tell