Apple Fotos Import Fehler bei größeren Mengen

property batchSize : 50
property sourceFolder : "/Volumes/..../Ordner"

property waitAfterImport : 15
property waitAfterQuit : 3
property waitBeforeNextBatch : 5

on writeLog(theText)
log (((current date) as string) & " - " & theText)
end writeLog

on run
my writeLog("=== START ===")
my writeLog("Quellordner: " & sourceFolder)
my writeLog("Batch-Größe: " & batchSize)

my writeLog("Suche JPG-Dateien ...")

set findCommand to "find " & quoted form of sourceFolder & " -maxdepth 1 -type f -iname '*.jpg' -print"
set fileListText to do shell script findCommand

if fileListText is "" then
my writeLog("FEHLER: Keine JPG-Dateien gefunden")
return
end if

set filePaths to paragraphs of fileListText
set totalFiles to count of filePaths

my writeLog("Gefunden: " & totalFiles & " JPG-Dateien")

set startIndex to 1
set batchNumber to 1

repeat while startIndex ≤ totalFiles
set endIndex to startIndex + batchSize - 1
if endIndex > totalFiles then set endIndex to totalFiles

set currentBatch to {}

repeat with i from startIndex to endIndex
set fileAlias to POSIX file (item i of filePaths) as alias
set end of currentBatch to fileAlias
end repeat

my writeLog("Batch " & batchNumber & ": Bilder " & startIndex & " bis " & endIndex)
my writeLog("Öffne Fotos ...")

tell application "Photos"
activate
delay 5
end tell

my writeLog("Fotos geöffnet")
my writeLog("Starte Import ...")

tell application "Photos"
with timeout of 1800 seconds
import currentBatch skip check duplicates yes
end timeout
end tell

my writeLog("Import-Befehl beendet")
my writeLog("Warte " & waitAfterImport & " Sekunden ...")

delay waitAfterImport

my writeLog("Schließe Fotos ...")

tell application "Photos"
quit
end tell

my writeLog("Fotos-Beenden gesendet")

delay waitAfterQuit

set startIndex to endIndex + 1
set batchNumber to batchNumber + 1

if startIndex ≤ totalFiles then
my writeLog("Nächster Batch in " & waitBeforeNextBatch & " Sekunden")
delay waitBeforeNextBatch
end if
end repeat

my writeLog("=== FERTIG ===")
end run