---

■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 最新50

マカー用。とりあえず意見求む。

811 ：そこら辺から拾ってきたよ。 ：2001/08/14(火) 01:24 ID:???

一定期間書き換えのなかったファイルをすべてゴミ箱に移動する。
これはドラッグ＆ドロップ形式だが、使用の際はダブルクリックで起動する。
使い方は、次の通りだ。
１．まず、チェックするフォルダをまとめてドラッグ＆ドロップして起動する。
２．基準となる日数を入力するダイアログが現われるので、ここで数字を入力する。
３．これで下準備は終わり。あとは、普通にダブルクリックして起動すると、
ドラッグしたフォルダの中を調べ、書き換えのないファイルをゴミ箱へ移動する。

*************************************************************************************************

property passingDays : 0
property checkFolder : ""

if passingDays = 0 then
display dialog "まだチェックするフォルダと経過時間を設定していません。"
else
fileCheck(checkFolder)
end if

on open drop_items
set checkFolder to drop_items
display dialog "何日経過したら削除する？（整数で入力）" default answer "30"
set passingDays to text returned of result
set passingDays to passingDays * 24 * 60 * 60
return
end open

on fileCheck(fileList)
tell application "Finder"
repeat with obj in fileList
set objPath to obj as string
if folder objPath exists then
set objItems to (every item of obj)
if (number of objItems) = 0 then
delete obj
else
my fileCheck(objItems)
end if
else
set modifiDay to modification date obsolete of obj
if (current date) - modifiDay > passingDays then delete obj
end if
end repeat
end tell
end fileCheck

244KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30