【ExcelVBA入門】DeleteFolderメソッドを使ったフォルダ削除方法とは

こんにちは、フリーランスエンジニア兼ライターのワキザカ サンシロウです。

皆さんは、VBAでフォルダを削除する方法を知っていますか?

VBAはExcel操作だけでなくフォルダ操作もできるので、ちょっとしたフォルダ整理ツールを作るときにとても便利なんですよね。

そこで今回は、

・VBAでフォルダを削除する方法

といった基礎的なことから、

・フォルダ以下のファイル・サブフォルダを含めて削除する方法

・エラーが出てしまった場合の対処方法

・合わせて覚えると便利なファイルを指定して削除する方法

といった応用的な方法まで、徹底的に解説します!

DeleteFolderメソッドの使い方

はじめに、フォルダを削除する方法について解説します。

フォルダを削除したいときは、FileSystemObjectオブジェクトのDeleteFolderメソッドを使います。

FileSystemObject.DeleteFolder "フォルダパス"

フォルダパスで指定したフォルダは、フォルダ内にあるファイル・サブフォルダ含めて削除することができます。

このように簡単にフォルダを削除することができます。

サンプルコード

次に、サンプルコードをもとに、具体的な使い方を解説します。

サンプルコード:

Sub Test()
  Dim objFSO As Object
  Dim strFolderPath As String
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  strFolderPath = "C:UsersSiroDesktopSamuraiVBA削除データサンプル1"
  
  'フォルダ削除
  objFSO.DeleteFolder strFolderPath
  
End Sub

FileSystemObjectと聞くと馴染みがない方もいるかもしれませんが、ファイル・フォルダ操作ができるオブジェクト操作方法です。

「CreateObject("Scripting.FileSystemObject")」でFileSystemObjectを使うことができるので、決まり文句として覚えてしまえばOKです。

フォルダ削除でエラーが出たときの対処方法

ただ、ファイルを開いている場合フォルダが既に存在していなかった場合にDeleteFolderメソッドを使うとエラーになってしまいます。

エラーが起こると処理が途中で止まってしまうだけでなくVBEのコードが表示されてしまうので、ツールを使う人に不信感を与えてしまうときがあります。

そのため、エラー処理を組み込んでおくのがおすすめです!

エラー処理を入れたサンプルコード:

Sub Test()
On Error GoTo Test_Err
  
  Dim objFSO As Object
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Dim strFolderPath As String
  strFolderPath = "C:UsersSiroDesktopフリーランスライター1. サムライエンジニアブログ62.VBA_フォルダ削除削除データサンプル1"
  
  'フォルダ削除
  objFSO.DeleteFolder strFolderPath
  
  'フォルダ存在チェック
  If Dir(strFolderPath, vbDirectory) <> "" Then
    MsgBox "削除に成功しました", vbInformation
  End If
  
  Exit Sub
  
Test_Err:
  MsgBox "削除に失敗しました。" & vbCrLf & _
         "エラー原因は以下の通りです。" & vbCrLf & vbCrLf & _
         "----------------------------------" & vbCrLf & _
         "エラー番号:" & Err.Number & vbCrLf & _
         "エラー詳細:" & Err.Description & vbCrLf & _
         "----------------------------------", vbCritical

End Sub

フォルダがない場合のエラー:

ファイルを開いている場合のエラー:

エラーの場合はエラーメッセージをMsgBoxで表示するように処理を書いています。

また、メインの処理ではフォルダがあった場合のみ、以下のメッセージが表示されるようにしています。

メッセージ:

VBAでツールを作るときは、このようなちょっとした配慮をするだけで、使い勝手がぐっと上がるのでおすすめです!

サンプルで紹介したフォルダ存在チェック方法、エラー処理の書き方については以下で詳しく解説しているので、気になる方は見てみてくださいね!

VBAでファイル名を取得するには?3+1のパターンで速攻理解!
更新日 : 2019年4月25日
【VBA入門】エラーを処理する方法(On Error、Resume、GoTo)
更新日 : 2019年4月21日

補足:合わせて覚えると便利なファイル削除方法とは

今回はフォルダ削除に特化して解説していますが、ファイルを指定して削除したいケースもありますよね。

以下で詳しく解説しているので、合わせて覚えるのがおすすめです!

まとめ

今回は、VBAでフォルダを削除するためのDeleteFolderメソッドの使い方について解説しました。

VBAでフォルダ削除ができるようになると、効率的に速くフォルダ整理ができるようになります。

使い方も簡単なので、ぜひ使ってみてくださいね!

LINEで送る
Pocket

ITエンジニアへ転職したい方におすすめ

自分を評価してくれる企業に転職して年収を上げたい! 自分のスキルにあった独自案件を知りたい!
エンジニアは今もっとも注目されている職業の1つ。エンジニアになって年収を増やしたい方や、あなたのスキルに見合った企業へ転職したいエンジニアの方も多いですよね。

しかし、大手の転職媒体は扱う求人数が多くても、誰もが登録しているので競争率もかなり高くなっています。そのため、あなたの条件に見合った企業を見つけても転職するためには、相応の努力とスキルが必要となります。

こういった媒体では、未経験からエンジニアを目指す方やエンジニア歴2〜3年で転職を考えている方にとって、最適な転職環境とはいえません。

そこでオススメしたいのが、未経験者や若手エンジニア向けの独自案件を多く掲載している「侍ワークス」です。

侍ワークスは、独自案件を多く掲載しているだけでなく、

・応募から就業まで一貫したサポート

・就業後もアフターフォロー

といった経験の浅い方や初めてエンジニアを目指す方にも安心のフォロー体制が整っています。もちろん登録は完全無料!しかも案件を見るだけなら登録も不要です。

まずは、お気軽にどんな求人があるか見てみてください。あなたにピッタリの企業がきっと見つかりますよ! 侍ワークスの求人情報を見る

書いた人

Sanshiro Wakizaka

Sanshiro Wakizaka

新卒入社したメーカー系のIT企業で、システムエンジニアとして約5年勤務。
Webアプリ、業務アプリ開発において、要件定義、設計、インフラ、製造、テスト、運用保守など、様々な経験あり。
また、侍ブログ編集部として、これまでに200記事以上の記事を執筆。
現在はフリーランスエンジニア兼テックライターとして活動中。