Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ディレクトリまたはフォルダの削除（RmDir ステートメント）

2015/12/22 2016/05/21

ディレクトリまたはフォルダの削除

ディレクトリまたはフォルダを削除するには、RmDir ステートメント を使用します。

【構文】

RmDir path

引数・戻り値

path ・・・削除するディレクトリまたはフォルダの名前を文字列式で指定します。path には、ドライブを含めることもできます。ドライブを指定しない場合は、現在のドライブが対象となります。

存在しないディレクトリまたはフォルダに対して、RmDir ステートメント を実行しようとするとエラーが発生します。

ディレクトリまたはフォルダ内にファイルが含まれている状態で、RmDir ステートメント で、削除しようとするとエラーが発生します。ディレクトリまたはフォルダ内を空にしてから削除してください。

ディレクトリまたはフォルダを中のファイルごと削除したい場合には、FileSystemObject オブジェクト の DeleteFolder メソッド を使用すると便利です。詳細に関しては、FileSystemObject：ファイル・フォルダを削除する（DeleteFile メソッド,DeleteFolder メソッド）を参照してください。

RmDir ステートメント使用例

サンプルVBAソース

　
Sub Sample_RmDir()

    Dim delDir
    delDir = "C:\Documents\tmp\emptydir"
    
    If Dir(delDir, vbDirectory) <> "" Then
    
        'フォルダが存在する時、削除
        RmDir delDir
    
    End If

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

　

Sub Sample_RmDir()

Dim delDir

delDir = "C:\Documents\tmp\emptydir"

If Dir(delDir, vbDirectory) <> "" Then

'フォルダが存在する時、削除

RmDir delDir

End If

End Sub

　

実行結果

実行前（「emptydir」は、空のフォルダ）

実行後

DeleteFolder メソッドで、ファイルごとフォルダを削除する例

サンプルVBAソース

　
Sub Sample_RemoveDirFile()

    Dim myFSO As Object
    
    Set myFSO = CreateObject("Scripting.FileSystemObject")
        
    'フォルダを削除
    myFSO.DeleteFolder "C:\Documents\tmp\mydir"
    
    Set myFSO = Nothing

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

　

Sub Sample_RemoveDirFile()

Dim myFSO As Object

Set myFSO = CreateObject("Scripting.FileSystemObject")

'フォルダを削除

myFSO.DeleteFolder "C:\Documents\tmp\mydir"

Set myFSO = Nothing

End Sub

　

実行結果

実行前（「mydir」は、テキストファイルを含むフォルダ）

実行後

- Excel・ファイルの操作 CreateObject 関数, DeleteFolder メソッド, Excel・ファイルの操作, FileSystemObject オブジェクト, RmDir ステートメント, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ファイル属性の取得・設定（GetAttr 関数・SetAttr ステートメント）

ファイル属性の取得（GetAttr 関数）ファイルやフォルダ（ディレクトリ）の …

: ファイルをコピー（FileCopy ステートメント）

FileCopy ステートメントファイルをコピーします。ただし、開いているファ …

: 「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

GetSaveAsFilename メソッド「名前を付けて保存」ダイアログボッ …

: Excel を終了する（Quit メソッド）

Excel を終了する（Quit メソッド） Quit メソッドを実行すると、E …

: フォルダ名・ファイル名を変更（Name ステートメント）

フォルダ名およびファイル名を変更 Name ステートメントで、ファイル、ディレ …

: テキストファイル：データを読み込む（Line Input # ステートメント）

Line Input # ステートメント Open ステートメントをシーケンシャ …

: テキストファイル：データを書き込む（Put ステートメント）

Put ステートメント Open ステートメントをランダムアクセスモード（Ra …

: テキストファイル：データを書き込む（Print # ステートメント）

Print # ステートメント Open ステートメントをシーケンシャル出力モ …

: テキストファイル：データを読み込む（Get ステートメント）

Get ステートメント Open ステートメントをランダムアクセスモード（Ra …

: ファイルを削除（Kill ステートメント）

ファイルを削除するファイルを削除するには、Kill ステートメントを使用しま …

PREV: ディレクトリまたはフォルダの作成（MkDir ステートメント）
NEXT: ファイル属性の取得・設定（GetAttr 関数・SetAttr ステートメント）