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
アクセスのフォームから バックアップ画像削除ボタンをクリックすると実行
この記事が気に入ったらサポートをしてみませんか?