Délai dépassé pour un AppleEvent. (-1712)

Bonjour,
j'ai récupérer sur un site un script qui permet de supprimé des dossiers vides dans nos disque dure par exemples ,
bon quand il y a un que quelque dossier ce la fonctionne tres bien , mais quand je selectionné par exemple mon dossier Gdrive sur mon disque dure dur j'ai ce code " Délai dépassé pour un AppleEvent. (-1712) "
je ne suis pas du à l'aise dans le script pour enlever ce code défaut du temps dépassé .
le script le voilà

property psVersion : "0" -- Version du système
property pnJauge : 0 -- Pour savoir si on affiche la jauge et laquelle
property psJauge : "" -- Chemin de la bonne jauge à afficher

-- Gestionnaire qui s'active lorsqu'on lance le script par double-clic sur son icône
on run
	set sRacine to (choose folder without invisibles) as alias
	my f_setJaugeTest_v()
	my f_setJauge_v(true)
	set aDelete to my f_getEmptyFolders_a(sRacine, {})
	my f_setDeleteItems_v(aDelete)
end run

-- Gestionaire qui s'active lorsqu'on lance le script par glisser-déposer sur son icône
on open aDrop
	my f_setJaugeTest_v()
	my f_setJauge_v(true)
	set aDelete to {}
	repeat with sItem in aDrop
		set sItem to sItem as alias
		if (folder of (info for sItem)) then
			set aDelete to aDelete & my f_getEmptyFolders_a(sItem, {})
		end if
	end repeat
	my f_setDeleteItems_v(aDelete)
end open

-- Fonction récursive qui liste tous les dossiers vides dans le dossier racine fourni
on f_getEmptyFolders_a(sRacine, aDelete)
	tell application "Finder"
		set aDoss to (every folder of folder sRacine) as alias list
		repeat with sDoss in aDoss
			set nNbr to count (every file of (entire contents of sDoss))
			if (nNbr < 1) then
				set end of aDelete to sDoss as alias
			else
				set aDelete to my f_getEmptyFolders_a(sDoss, aDelete)
			end if
		end repeat
		return aDelete
	end tell
end f_getEmptyFolders_a

-- Fonction qui supprime tous les éléments présents dans la liste "aDelete"
on f_setDeleteItems_v(aDelete)
	tell application "Finder"
		set nNbr to (count aDelete)
		if (nNbr > 0) then delete aDelete
		my f_setJauge_v(false)
		activate
		display dialog ("Dossiers vides supprimés : " & nNbr) ¬
			buttons {"Ok"} default button 1 with icon 1 giving up after 10
	end tell
end f_setDeleteItems_v

-- Fonction pour déterminer si on peut afficher une jauge et laquelle
on f_setJaugeTest_v()
	set sVersion to (system version of (system info)) as string
	if (sVersion is my psVersion) then
		return -- Valeurs déjà en mémoire
	else if (sVersion > "10.6.0") then
		-- Snow Leopard ou plus
		set my pnJauge to 2
		set my psJauge to (path to resource "Jauge.app") as string
	else if (sVersion > "10.5.0") then
		-- Leopard
		set my pnJauge to 1
		set sJauge to path to resource "Jauge.rtfd"
		set my psJauge to quoted form of (POSIX path of sJauge) as string
	else
		-- Pas de jauge
		set my pnJauge to 0
		set my psJauge to ""
	end if
	set my psVersion to sVersion
end f_setJaugeTest_v

-- Fonction qui affiche une petite jauge d'attente
on f_setJauge_v(bShow)
	if (my pnJauge > 1) then
		if (bShow) then
			tell application (my psJauge) to activate
		else
			tell application (my psJauge) to quit
		end if
	else if (my pnJauge > 0) then
		if (bShow) then
			do shell script ("qlmanage -p " & (my psJauge) & " >& /dev/null &")
		else
			do shell script ("killall qlmanage >& /dev/null &")
		end if
	end if
end f_setJauge_v

Si quelqu'un peut m'aidé .
Merci d'avance