XnViewのバックアップファイルを削除

フリーの画像ビューワーソフト
XnViewで　画像を回転させたりすると　回転前のオリジナル画像と　AAA.jpg　　→　AAA.xnbak.jp　　が作成されてしまいます。

複数の画像をまとめて回転させたりすると大量のバックアップ画像ファイルが作成され混在して大変です。毎回削除するのもめんどうなので

MS　ACCESS　VBAで指定した作業フォル内のバックアップ画像を削除する
シンプルなコードを書きました。
まとめて複数のバックアップ画像を削除します。

●特定のフォルダ内に特定の文字列があるファイルを全て削除します。
今回の場合　C:\Users\作業フォルダ\　内にある　.xnbak.jpg　文字列を含むファイルを全て削除します。

Private Sub バックアップ画像削除_Click()

path0 = "C:\Users\作業フォルダ\"

fl = Dir(path0)
Do Until fl = ""
　　If InStr(fl, ".xnbak.jpg") Then
    　　Kill path0 & fl
    End If
    fl = Dir
Loop

End Sub

アクセスのフォームから　バックアップ画像削除ボタンをクリックすると実行