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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

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

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

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

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

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

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

: ファイルの検索・フォルダ内のファイル一覧を取得（Dir 関数）

Dir 関数 Dir 関数で、ファイルの存在を確認したり、指定したフォルダ内のフ …

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

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

: FileDialog オブジェクトを取得する（FileDialog プロパティ）

FileDialog プロパティ FileDialog オブジェクトを取得しま …

: 開いているファイルの現在の読み取り位置または書き込み位置を取得（Seek 関数）

Seek 関数 Open ステートメントで開いたファイル内の現在の読み取り位置 …

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

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

: 「ファイルを開く」ダイアログボックスを表示（GetOpenFilename メソッド）

GetOpenFilename メソッドファイル名を取得するための、「ファイル …

: 開いているファイルの読み取り位置または書き込み位置を設定（Seek ステートメント）

Seek ステートメント Open ステートメントで開いているファイルで、次に …

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