<pre>on eraseFile filePath  toComputer  if filePath is empty or filePath is "filePath" then    answer file "Nom du fichier  supprimer ?" of type TEXT    if it is empty or the result is "cancel" then exit eraseFile    put it into filePath  end if  get "Supprimer le fichier" && quote & getFileName(filePath) & quote && "?"  answer it with "Supprimer" or "Annuler"  if it is "Annuler" then exit eraseFile  if there is a file filePath then deleteFile filePath -- XCMD  else    beep 1    get quote & getFileName(filePath) & quote    get "Incapable de supprimer le fichier" && it    answer it with "Compris"  end ifend eraseFile</pre>