MkDir、RmDirステートメント

MkDir ステートメントはフォルダの作成を行います。
RmDir ステートメントはフォルダの削除を行います。
但し、削除対象のフォルダ内にファイルが存在しているとエラーが発生します。フォルダを削除する前に、Kill ステートメントなどを使用してすべてのファイルを削除しておく必要があります。

MkDir、RmDirステートメントの使用方法

MkDir Path
RmDir Path

MkDirステートメントの使用例

新しく作成したいフォルダが存在しないことを確認してからフォルダを作成する例です。

Sub sample_ef07a_01()
    Dim newFolder   As String
    newFolder = "C:¥Users¥Guest¥excel"

    'フォルダが存在していないことを確認
    If Dir(newFolder, vbDirectory) = "" Then
        MkDir newFolder
    End If
End Sub

 Dir関数

RmDirステートメントの使用例

フォルダ内のファイルをKillステートメントによりすべて削除してからフォルダを削除する例です。

Sub sample_ef07a_02()
    Dim myFolder   As String

    myFolder = "C:¥Users¥Guest¥vba"
    Kill myFolder & "¥*.*"    'フォルダ内のファイルを全削除
    RmDir myFolder            'フォルダ削除
End Sub

 Killステートメント