iol
29-12-2009, 00:52
Esiste qualche script o programma per individuare delle cartelle vuote ed eventualmente rimuoverle?
Tnx
Tnx
View Full Version : Individuare e Rimuovere cartelle vuote
tæo
29-12-2009, 19:06
una semplice possibilità consiste nell'usare AppleScript, ecco il risultato:
on open parent_folder
my routine(parent_folder)
end open
on run
set parent_folder to ( choose folder with prompt “Select parent folder” default location ( path to home folder) without invisibles)
my routine(parent_folder)
end run
on routine(parent_folder)
display dialog “Are you sure you want to delete every empty folder inside:
“ & POSIX path of parent_folder buttons {“Exit”, “Continue”} default button 2 with icon caution
if result is “Exit” then
return
end if
set ret to my recurse(parent_folder, {”“, 0}, 1)
my show_log(ret, parent_folder)
end routine
on recurse(parent_folder, ret, root)
tell application “Finder”
repeat with child in (*get* folders of parent_folder)
set ret to my recurse(child, ret, 0)
end repeat
if root is 0 and (( count items) of parent_folder is 0 or ( count items) of parent_folder is 1 and name of item 1 of parent_folder is “.DS_Store”) then
set c to (*item* 2 of ret) + 1
set res to item 1 of ret & “
“ & c & “. “ & ( POSIX path of (parent_folder as string))
set ret to {res, c}
delete parent_folder
end if
end tell
return ret
end recurse
on show_log(ret, parent_folder)
display dialog “Do you want to see the log?” buttons {“Exit”, “Yes”} default button 2
if result is “Exit” then
return
end if
tell application “TextEdit”
activate
make new document
set text of document 1 to “” & (item 2 of ret) & “ folder(s) deleted in \”“ & ( POSIX path of parent_folder as string) & “\”:
“ & (*item* 1 of ret)
end tell
end show_log
in questa pagina (http://matteomaggioni.altervista.org/post:24) ho scritto qualche breve nota e da qui puoi scaricare direttamente l'eseguibile. (http://matteomaggioni.altervista.org/download/DeleteEmptyFolders.zip) Sostanzialmente avvia il programmino, seleziona la cartella dentro la quale cercare le cartelle vuote e poi premi OK, alla fine potrai scegliere se visualizzare il resoconto o meno e tutte le cartelle (e sottocartelle) vuote trovate saranno spostate nel cestino.
Per sicurezza fai prima una prova con una cartella di test.
on open parent_folder
my routine(parent_folder)
end open
on run
set parent_folder to ( choose folder with prompt “Select parent folder” default location ( path to home folder) without invisibles)
my routine(parent_folder)
end run
on routine(parent_folder)
display dialog “Are you sure you want to delete every empty folder inside:
“ & POSIX path of parent_folder buttons {“Exit”, “Continue”} default button 2 with icon caution
if result is “Exit” then
return
end if
set ret to my recurse(parent_folder, {”“, 0}, 1)
my show_log(ret, parent_folder)
end routine
on recurse(parent_folder, ret, root)
tell application “Finder”
repeat with child in (*get* folders of parent_folder)
set ret to my recurse(child, ret, 0)
end repeat
if root is 0 and (( count items) of parent_folder is 0 or ( count items) of parent_folder is 1 and name of item 1 of parent_folder is “.DS_Store”) then
set c to (*item* 2 of ret) + 1
set res to item 1 of ret & “
“ & c & “. “ & ( POSIX path of (parent_folder as string))
set ret to {res, c}
delete parent_folder
end if
end tell
return ret
end recurse
on show_log(ret, parent_folder)
display dialog “Do you want to see the log?” buttons {“Exit”, “Yes”} default button 2
if result is “Exit” then
return
end if
tell application “TextEdit”
activate
make new document
set text of document 1 to “” & (item 2 of ret) & “ folder(s) deleted in \”“ & ( POSIX path of parent_folder as string) & “\”:
“ & (*item* 1 of ret)
end tell
end show_log
in questa pagina (http://matteomaggioni.altervista.org/post:24) ho scritto qualche breve nota e da qui puoi scaricare direttamente l'eseguibile. (http://matteomaggioni.altervista.org/download/DeleteEmptyFolders.zip) Sostanzialmente avvia il programmino, seleziona la cartella dentro la quale cercare le cartelle vuote e poi premi OK, alla fine potrai scegliere se visualizzare il resoconto o meno e tutte le cartelle (e sottocartelle) vuote trovate saranno spostate nel cestino.
Per sicurezza fai prima una prova con una cartella di test.
iol
29-12-2009, 20:21
una semplice possibilità consiste nell'usare AppleScript, ecco il risultato:
on open parent_folder
my routine(parent_folder)
end open
on run
set parent_folder to ( choose folder with prompt “Select parent folder” default location ( path to home folder) without invisibles)
my routine(parent_folder)
end run
on routine(parent_folder)
display dialog “Are you sure you want to delete every empty folder inside:
“ & POSIX path of parent_folder buttons {“Exit”, “Continue”} default button 2 with icon caution
if result is “Exit” then
return
end if
set ret to my recurse(parent_folder, {”“, 0}, 1)
my show_log(ret, parent_folder)
end routine
on recurse(parent_folder, ret, root)
tell application “Finder”
repeat with child in (*get* folders of parent_folder)
set ret to my recurse(child, ret, 0)
end repeat
if root is 0 and (( count items) of parent_folder is 0 or ( count items) of parent_folder is 1 and name of item 1 of parent_folder is “.DS_Store”) then
set c to (*item* 2 of ret) + 1
set res to item 1 of ret & “
“ & c & “. “ & ( POSIX path of (parent_folder as string))
set ret to {res, c}
delete parent_folder
end if
end tell
return ret
end recurse
on show_log(ret, parent_folder)
display dialog “Do you want to see the log?” buttons {“Exit”, “Yes”} default button 2
if result is “Exit” then
return
end if
tell application “TextEdit”
activate
make new document
set text of document 1 to “” & (item 2 of ret) & “ folder(s) deleted in \”“ & ( POSIX path of parent_folder as string) & “\”:
“ & (*item* 1 of ret)
end tell
end show_log
in questa pagina (http://matteomaggioni.altervista.org/post:24) ho scritto qualche breve nota e da qui puoi scaricare direttamente l'eseguibile. (http://matteomaggioni.altervista.org/download/DeleteEmptyFolders.zip) Sostanzialmente avvia il programmino, seleziona la cartella dentro la quale cercare le cartelle vuote e poi premi OK, alla fine potrai scegliere se visualizzare il resoconto o meno e tutte le cartelle (e sottocartelle) vuote trovate saranno spostate nel cestino.
Per sicurezza fai prima una prova con una cartella di test.
grazie lo proverò!
on open parent_folder
my routine(parent_folder)
end open
on run
set parent_folder to ( choose folder with prompt “Select parent folder” default location ( path to home folder) without invisibles)
my routine(parent_folder)
end run
on routine(parent_folder)
display dialog “Are you sure you want to delete every empty folder inside:
“ & POSIX path of parent_folder buttons {“Exit”, “Continue”} default button 2 with icon caution
if result is “Exit” then
return
end if
set ret to my recurse(parent_folder, {”“, 0}, 1)
my show_log(ret, parent_folder)
end routine
on recurse(parent_folder, ret, root)
tell application “Finder”
repeat with child in (*get* folders of parent_folder)
set ret to my recurse(child, ret, 0)
end repeat
if root is 0 and (( count items) of parent_folder is 0 or ( count items) of parent_folder is 1 and name of item 1 of parent_folder is “.DS_Store”) then
set c to (*item* 2 of ret) + 1
set res to item 1 of ret & “
“ & c & “. “ & ( POSIX path of (parent_folder as string))
set ret to {res, c}
delete parent_folder
end if
end tell
return ret
end recurse
on show_log(ret, parent_folder)
display dialog “Do you want to see the log?” buttons {“Exit”, “Yes”} default button 2
if result is “Exit” then
return
end if
tell application “TextEdit”
activate
make new document
set text of document 1 to “” & (item 2 of ret) & “ folder(s) deleted in \”“ & ( POSIX path of parent_folder as string) & “\”:
“ & (*item* 1 of ret)
end tell
end show_log
in questa pagina (http://matteomaggioni.altervista.org/post:24) ho scritto qualche breve nota e da qui puoi scaricare direttamente l'eseguibile. (http://matteomaggioni.altervista.org/download/DeleteEmptyFolders.zip) Sostanzialmente avvia il programmino, seleziona la cartella dentro la quale cercare le cartelle vuote e poi premi OK, alla fine potrai scegliere se visualizzare il resoconto o meno e tutte le cartelle (e sottocartelle) vuote trovate saranno spostate nel cestino.
Per sicurezza fai prima una prova con una cartella di test.
grazie lo proverò!
vBulletin® v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.