項目

フォルダの削除(RmDir)

概要

RmDirを利用してフォルダを既存のフォルダを削除できます。
指定したフォルダ内にファイルが存在していると、エラーが発生します。

例

Option Compare Database
Option Explicit

'++++++++++++++++++++++++++++++++++++++++++++++++++
'■フォルダの削除（RmDir）
'++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub コマンド0_Click()

On Error GoTo err_handle

    Dim path      As String

    path = "c:\temp\hoge"

    On Error Resume Next
    RmDir path         '既存のフォルダを削除する

    Exit Sub

err_handle:

    Debug.Print Err.Description

End Sub