【VBA】Excelでファイル削除アプリを作る

「VBAプログラミングをしてみたいけど、何を作ったら良いのか・・・。」

そんな方にご提案です。

ファイル削除アプリを作成してみませんか？

比較的簡単に作成できる上、実用性もあるプログラムなので、初めてのプログラミングにはうってつけの題材だと思います。

今回ご紹介するプログラムですが、利用する画面はこんな感じです。

指定したフォルダにあるファイルの内、特定の文字列を含むもののみを削除します。
今回はこんなフォルダを用意しました。

こんな感じでフォルダパスと文字列を入力して実行すると・・・。

こんなメッセージが表示されます。

フォルダを確認すると、「不要」という文字列を含んだファイルだけが削除されています。

なんだかそれっぽいアプリに見えませんか？笑
このアプリのプログラムがこんな感じです。

Sub File_Delete()
'各種変数の定義
Dim Folder_path
Dim fso
Dim file
Dim files
Dim record As Integer
Dim Delstr As String
    'フォルダパスをpathに格納
    Folder_path = Range("B2")
    '検索文字列をDelstrに格納
    Delstr = Range("B4")
    '削除ファイル数を0にセット
    record = 0

    'オブジェクトの作成
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set files = fso.GetFolder(Folder_path).files

    'フォルダ内の全ファイルをループ
    For Each file In files

     '指定した文字列を含むファイルだった時は削除
        If InStr(file.Name, Delstr) >= 1 Then
            file.Delete
            record = record + 1
        End If
        
    Next file
        
    '削除件数をメッセージボックスで表示する。
    MsgBox record & "件のファイルを削除しました。"

End Sub

想像したよりも短かったのではないでしょうか？（そんなことないですかね？）

このプログラム（マクロ）を削除実行ボタンに登録することだけでアプリの完成です。

ちなみにマクロの登録はこんな感じでします。

まずマクロを登録するボタンを右クリックして「マクロの登録」を開きます。