Existe uma maneira de fazer um slideshow de todos os vídeos e imagens contidos em uma única pasta?


2

Estou montando um slideshow de um espaço de varejo. O ideal é ter uma pasta de vídeos e imagens que possa ser adicionada ou removida e que atualize a apresentação de slides. Semelhante ao screensaver slideshow, mas com capacidade de vídeo. Existe um aplicativo para fazer isso ou algo scriptable?


2
Hmmm eu posso ser capaz de fazer um roteiro juntos hoje a noite. As pastas têm pastas ou apenas pastas com fotos e vídeos?
JBis

Apenas uma pasta singular. A ideia de ser qualquer coisa estará na apresentação de slides, mas será mais fácil para as pessoas que fazem a mídia adicioná-la facilmente.
BoetW

1
Gotchta. E você precisa de vídeos para jogar certo? Eu vou colocar algo juntos hoje à noite.
JBis

Respostas:


4
  1. Abra /Applications/Photos.appe vá para Arquivo> Novo Álbum.
  2. Crie um novo álbum com o nome "Store Display"
  3. Abrir /Applications/Utilities/Script Editor.app
  4. Copie e cole o script abaixo
  5. Vá para Arquivo> Exportar
    • Formato de arquivo: aplicativo
  6. Aplicativo Aberto
  7. Selecione sua pasta que contém Fotos e Vídeos
  8. Clique em Escolher
  9. Comemoro!

Heres o 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
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.