on run
set thePathH to "/Users/zacro/Desktop/.dossierTest/"
set thePath to "/Users/zacro/Desktop/dossierTest/"
set theFolder to ((POSIX file thePath) as string)
tell application "Finder"
set FolderOk to exists folder theFolder
end tell
if FolderOk then
set butRet to theDlg("masquer")
if butRet = "oui" then
do shell script "mv " & thePath & " " & thePathH
else
return
end if
else
set butRet to theDlg("afficher")
if butRet = "oui" then
do shell script "mv " & thePathH & " " & thePath
else
return
end if
end if
end run
on theDlg(theWord)
set butRet to button returned of (display dialog "Voulez-vous " & theWord & " Dossier_important" buttons {"Non", "Oui"} default button {"Oui"})
return butRet
end theDlg