フォルダアイコンが化けてしまいました

一瞬、ResEditを頭によぎったのですが、少ししか使ったことがないのと、バージョンも古いのでどうなのでしょうか？
私の力では不可視のファイル「icon」をスクリプトで操作したり情報を取得することができませんでした。
もしよろしかったら、どこの例文か教えていただけないでしょうか？
■思いつく対処法
「起動ディスク」→「システムフォルダ」→「System」
「System」というスーツケースの形のファイルにフォルダアイコンの親分がいるのですが、
一番手っ取り早いのが、システムのバックアップがありましたら「System」ファイルをバックアップと入れ替えることです。
１「システム物置」というフォルダを作ってバックアップの「System」をそこへコピーします。
２　マックをCD-ROMから起動します
３　CD-ROMで起動できたら、ハードディスクの「システムフォルダ」の中の「System」を外に出します。４　次にバックアップのものをシステムフォルダへ入れます。
５　問題のある「System」はごみ箱へ捨てるのがベストです。
６　システムフォルダを閉じてシステムフォルダのアイコンになっているのを確認します。
　（アイコンがただのフォルダなっていたらもう一度システムフォルダを開いて閉じます）
７　マックのハードディスクで起動しなおしとデスクトップ再構築を行いフォルダが元に戻ったか確認します。
再起動後に
・「コンピュータの名前」を「ファイル共有」コントロールパネルで確認してください。
（コンピュータの名前を入力しないとAppleTalkに影響があります。）
・「セレクタ」でプリンタを選び直してください。
このへんは要チェックだと重います。
自信がないようでしたら試さずに、他の方のレスを待ってみてください？どうでしょうか？KAPPA

undefined

KAPPAさま，waterKさま　　お答えいただき，ありがとうございました．
バックアップしていたSystemと入れ替え，FileExchange初期設定ファイルを削除しましたが，残念ながら解決しません．相当変なことが起こってしまったようですね．見た目以外の機能の障害は無いのですが．．．．
以下は，KAPPAさんの書かれた
====
私の力では不可視のファイル「icon」をスクリプトで操作したり情報を取得することができませんでした。
もしよろしかったら、どこの例文か教えていただけないでしょうか？
====
へのお答えです．
問題のAppleScriptは大串敏史さん作のハイパーカード・スタック「ほ〜むメイドAppleScript」の中のものです．同スタックの　第五回「オブジェクトと属性」−「書類の属性」　というページのボタンに付けられているスクリプトです．私は前に「タイプとクリエータを表示するスクリプト」と書きましたが，クリエータだけでした．こんなスクリプトです．
====
on mouseUp
try
set chFile to (choose file with prompt "クリエータを調べるファイルを指定して下さい")
on error
return
end try
tell application "Finder"
display dialog (name of chFile) & "の" & return & "クリエータは" & (creator type of chFile) & "です" buttons {"OK"} default button "OK"
end tell
end mouseUp
====
このボタンを推すと，ファイル選択ダイアログが出てきて，その中にはicon，Desktop DBなどの不可視ファイルが表示されています．

後ほど試してみます。
普段とは別の起動ディスクで墓穴を掘ってみます。
もし同じ道を歩んでしまったら解決法探してみます。
よろしくお願いします。KAPPA

教えていただいた例文でクリエータを変更したりする仕掛けではなくて（いたずら例文かと思っていました）
私のところでは不可視状態の「icon」はスクリプトで参照したり変更することができずに、エラーメッセージがでていました。（*0x//*これのオリジナルが見つかりませんでした）
多分、フリーズの時に何かが損傷して治せないとなると私だったら、CD-ROMで起動してみてフォルダアイコンが治るようでしたら、再インストールが最短コースのような気がします。でも、アイコンのためだけに再インストールも面倒でしょうか？
「System」を外のフォルダかディスクにコピーをしてResEditをチャレンジしてみるのも手ですが、詳しい人が見ててくれればいいのですが？
よろしくお願いします。KAPPA
（以下、少し気になったこと）
●だいたいの不可視「icon」は
タイプ→icon
クリエータ→MACS
でした。（空欄のもありました。）
●デスクトップ再構築でアイコン修復についてTILの中から（部分だけ）
- Mac OS 8.5 から 9.0
“File Exchange”コントロールバネルを「オン」にします。（コントロールパネル一覧にあります。クリックして、横にチェックマークを付けてください）
4「Command」キーと「Option」キーを押しながら、コンピュータを再起動します。

フォルダのデフォルトアイコンが変わってしまったようなので、
多分、無理だと思いますが（私の駄目押しですが一応）
ドラッグドロップしたフォルダとその中に含まれるフォルダを探してカスタムアイコンをまとめて削除する例文です。
下の例文を「スクリプト編集プログラム」の新規書類にペーストしてアプリケーションとして保存して使用してください。
※注意：カスタムアイコン削除後に取り消しはできないので注意して利用してください。
勉強のつもりで編集してみました。どうでしょうか？KAPPA
--●以下例文です
property |ボタン| : {}
on open |オブジェクトリスト|
tell application "Finder"
display dialog "フォルダのカスタムアイコンを消します。" & return & ツ
"よろしいですか？" buttons {"キャンセル", "OK"} default button "OK"
set |ボタン| to button returned of result
end tell
|検索|(|オブジェクトリスト|)
end open
on |検索|(|オブジェクトリスト|)
tell application "Finder"
if |ボタン| = "OK" then
repeat with |各項目| in |オブジェクトリスト|
if folder (|各項目| as string) exists then
set |チェックフォルダ| to every item of folder (|各項目| as string)
my |検索|(|チェックフォルダ|)
set icon of |各項目| to {}
end if
end repeat
end if
end tell
end |検索|

KAPPAさま
いろいろ答えていただき，ありがとうございました．
しかし，解決には至りませんでした．
作っていただいたアップル・スクリプトも試してみましたが，KAPPAさんの予想通り，
・PSPrinterアイコンのフォルダをD&Dしてもアイコンは変化無し
・カスタムアイコン付きフォルダをD&DするとPSPrinterアイコンになる
という結果でした．
====KAPPAさん====
再インストールが最短コースのような気がします。でも、アイコンのためだけに再インストールも面倒でしょうか？
=================
仰せの通り，なるべくなら再インストールは避けたいと思っていました．
ResEditは，以前から使ってみたいとは思っていたのですが，この事態で使うことはちょっと遠慮したい気分です．従って，ここはやっぱり再インストールすることにします．これを機会にResEditは勉強しておこうと思います．
いろいろありがとうございました．このメッセージスレッドは，とりあえず，ここで打止めとしたいと思います．

KeiSさんへ解決できませんでしたが、おつかれさまでした。再インストールも大変そうですが頑張ってください。
せっかくなので、ついでにカスタムアイコンも付けれるようにしました。（意外と便利でした）
ドラッグドロップしたフォルダと含まれるフォルダのすべてのカスタムアイコンをセットしますが、フォルダ数が多いと時間はかかります。（バックグラウンドで動作させ続けても動作は気になりませんでした）
下の例文を「スクリプト編集プログラム」の新規書類にペーストしてアプリケーションとして保存して使用してください。（フォルダ数が多いときはアプレットのメモリ割当ても増やした方がいいかもしれません？）
※注意：カスタムアイコンのセット・削除後に取り消しはできないので注意して利用してください。
※アプレットを単純に開くとアイコンを選択できます。
※いつも変なフォーラム利用法ですいません。KAPPA
名前「フォルダのカスタムアイコン」
--●以下例文です
property |ボタン| : {}
property |アイコンデータ| : {}
property |集計| : {}
tell application "Finder"
choose file with prompt "アイコンをコピー元にするファイルを選んでください。"
set |アイコンデータ| to icon of result
end tell
on open |オブジェクトリスト|
tell application "Finder"
if |ボタン| = {} and |アイコンデータ| = {} then set |ボタン| to "削除"
if |ボタン| = {} and not |アイコンデータ| = {} then set |ボタン| to "セット"
display dialog "ドラッグドロップされたフォルダと、中に含まれるフォルダ全てのカスタムアイコンをセット／削除します。よろしいですか？" & return & ツ
"（フォルダ数が多いときは時間がかかりますがバックグラウンドでも動作します）" buttons {"キャンセル", "削除", "セット"} default button |ボタン|
set |ボタン| to button returned of result
if |ボタン| = "セット" and |アイコンデータ| = {} then
choose file with prompt "アイコンをコピー元にするファイルを選んでください。"
set |アイコンデータ| to icon of result
end if
end tell
|検索|(|オブジェクトリスト|)
end open
on |検索|(|オブジェクトリスト|)
tell application "Finder"
if |ボタン| = "セット" or |ボタン| = "削除" then
repeat with |各項目| in |オブジェクトリスト|
if folder (|各項目| as string) exists then
set |チェックフォルダ| to every item of folder (|各項目| as string)
my |検索|(|チェックフォルダ|)
if |ボタン| = "削除" then set icon of |各項目| to {}
if |ボタン| = "セット" and not |アイコンデータ| = {} then set icon of |各項目| to |アイコンデータ|
end if
end repeat
end if
end tell
end |検索|

KAPPAさま
AppleScript第２弾も参考になりました．
これからもよろしくお願いします．