要らないファイルを自動削除するコードの作成

今回は、フォルダに保存されている要らないファイルを削除するエクセルVBAコードを紹介します。

フォルダを開いて一つずつファイル名を確認して、ではなくて、コード実行一発でササッと完了します。

こんにちは、じゅんぱ店長（@junpa33）です。

　ブックの操作の記事一覧

ブック名に作成者名を付加。 プロパティ変更とファイル保存VBA シートをブックから切り出し名付け保存するセル値を使いブック名として保存。統一フォームに有用ピンポイントでファイルを完全に削除するマクロ（コピペ可）新規ブック5つの保存法。AddとSaveAsの使い方がわかるVBA 開く,保存,閉じる,作成,削除 ブックの存在確認後のコード記述VBA ブック名の取得法４つの解決策を詳しく解説ブックを指定する絶対パスと相対パス記述のコツエクセルブックのアクティブ化は大切。あるあるミスと記述ワークブックを開くOpenメソッドの書き方 Excelマクロワークブックを閉じる12のパターン使い分け VBA最速理解エクセルブックを保護する基本コード エクセルVBA最速理解ファイルの保存に年月日＋時刻を付けて管理する不要フォルダを削除する2種類のコードの作成要らないファイルを自動削除するコードの作成新規作成ブックとシート。アクティブ状態でやっておくことVBA 保存先フォルダをダイアログ指定で変数化

エクセルVBA 要らないファイルを
自動削除するコードの作り方

このコードを作成するには、Dir関数とKillステートメントを使って作成します。

Dir関数について

Dir関数は、そのファイルが存在するかどうかを調べられる関数です。戻り値のデータ型はString型です。

記述方法

Dir ( pathname, attributes )

pathname・・・検索するファイル名、フォルダ名

複数のファイルを指定するためのアスタリスク（*）や疑問符（?）のワイルドカード文字が使えます。

sttributes ・・・属性　省略可能です。

使い方

Dir関数は、戻り値として、pathnameで指定したファイル名と一致したファイル名がある時そのファイル名を返します。

ワイルドカードを使った場合は、最初に検索されたファイル名を返します。

もし、指定されたファイルが検索できないときは、空文字「””」を返します。

Killステートメントについて

filenameで指定したファイルを削除します。完全に削除されますので、ゴミ箱にも残りません。

ワイルドカードを使えば、複数のファイルを同時に削除することもできます。

記述方法

Kill  filename

filename・・・削除するファイル名

複数のファイルを指定するためのアスタリスク（*）や疑問符（?）のワイルドカード文字が使えます。

使い方

フォルダ内に該当するファイルがない場合はエラーストップします。

エラーストップ防止コードの設置が必要です。

ワイルドカードを使ってファイル名を指定すると、実行時に一度に該当ファイルが削除されます。

Do～Loopなどで繰り返す必要はありません。

今回の例題

PDFファイルで、不要なファイルを指定して削除します。

同じフォルダ内に削除コードを作成したエクセルファイルを入れておきます。

ファイル自動削除コードは

Sub DirKillサンプル1()

Dim mypath As String
Dim myfile As String

mypath = ThisWorkbook.Path & "\"

'削除したいファイルが存在するか
If Dir(mypath & "*999999*.PDF") <> "" Then

'ファイルを削除する
    Kill mypath & "*999999*.PDF"

Else

'見つからない場合のメッセージ
    MsgBox "削除予定ファイルは見つかりませんでした。"
    
End If

End Sub

要らないファイルを自動削除するコードの作り方まとめ

Killステートメントを利用するための注意点として、エラーストップの対処がポイントになります。

その対処のために、Dir関数を使って削除対象ファイルがあるかどうかを調べることになります。

コードとしても、簡単なコードに纏まりますので、パターンを公式的に覚えておけば便利かと思います。

短期間でエクセルVBAの独学習得を目指したいなら

エクセルVBAを独学する独習方法は、学習者それぞれ十人十色、多種多様と思われます。

けれども、

出来るだけ効率よく学習するためには、いくつかの大切なポイントがあります。

独学でもVBA習得の中級クラスに達するのはそんなに難しいことではありません。

先人が行った勉強方法をあなたがそのまま利用すればよいということです。

2021年3月18日 エクセルVBAを独学で習得する！ために大切な7つのポイントを解説します

独習のための大切な7つのポイントは、上記記事にて解説しています。

正直、VBAの学習について自分の周りの仕事（業務）からだけ実例を得るのでは効率良い習熟は無理です。

ハッキリ言って、

本当に短い期間でVBA習得を成功させたいなら、今使っている参考書が良書かどうかを判断し、新ツールとしてオンライン学習も取り入れて行うことが、

手っ取り早く短期間習得できるというのは間違いないでしょう。

このサイトでよく使うVBAのコードのトピックを纏めています。

「エクセルVBA最速理解」の記事一覧を開く

今回の記事はここまでです。   最後までご覧いただき有難うございました。