ある条件のもとでのファイル削除

質問

お世話になります。
あるフォルダにデータがたくさん入っています。（画像データが主）
またそのフォルダの中で必要なデータのファイル名を入力したエクセルファイルがあります。
対象のフォルダから、エクセルに入力されたファイル名と同名のファイルのみ残して他のファイルは削除したい。（もしくは必要なファイルのみ別のフォルダに移すというのでも可）

例）
対象のフォルダに　0001.tif,0002.tif,0003.tif,0004.tif,0005.tif があり
エクセルのデータに　0002.tif,0005.tif が入力されているとすると
0001.tif,0003.tif,0004.tif　をフォルダから削除する。
ちなみにエクセルに入力されているファイル名のデータは同じ列に１行ずつ入力されている。（A1に0002.tif,A2に0005.tif　という具合です）

もちろん実際のファイル数はかなりあるので手動でというのは無し。
以上のような処理を簡単に出来る方法をアドバイスください。
便利なフリーソフト、コマンドプロンプトの使用、何かエクセルの機能を使うなどアプローチはどんな方法でも構いません。
OSはWinXP proです。
よろしくおねがします。

回答No.2

ham_kamo

エクセルは他のファイルと同じフォルダにあるのですよね？
エクセルのマクロでやる方法です。

削除しないファイル名が書いてあるシートのシートタブを右クリックし、「コードの表示」を選択します。

マクロの画面が出るので、以下のマクロを右の白い画面にコピーして貼り付けます。
※マクロ中の"A:A"という箇所は、もしファイル名が書かれている列がA列でない場合は、実際の列名に書き換えてください。

Sub ファイル削除()
　Dim FileName As String
　FileName = Dir("*.*")
　Do While FileName <> ""
　　If Columns("A:A").Find(FileName) Is Nothing And FileName <> ThisWorkbook.Name Then
　　　Kill FileName
　　End If
　　FileName = Dir()
　Loop
End Sub

その画面からF5キーを押してマクロを実行すると、エクセルのシートに入力されていない同じフォルダのファイルが削除されます。

★もし不具合があって必要なファイルまで削除してしまうと危険なので、事前にフォルダごとコピーしておいてバックアップをとっておく方がよいでしょう。

お礼

ありがとうございました。

補足

ご回答ありがとうございます。
上の例のほかいろいろ試して成功していました。
しかし突然反応しなくなりました。
なにか考えられることはありますか？