◆フォルダを作成する ・ 削除する

  フォルダを作成するには、 MkDir ステートメントを使用します。

    MkDir Path


  フォルダを削除する場合には、 RmDir ステートメントを使用します。

    RmDir Path

  削除したいフォルダ内にファイルが存在していると、エラーが発生します。

  この場合は、Kill ステートメントを使用してフォルダ内のすべてのファイルを
  削除してから RmDir ステートメントを使用します。

Sub DeleteFolde()

    Dim Folder_Path, FileName_InFolder As String
    
    'フォルダのパスを取得
    Folder_Path = FolderPath
    
    'フォルダ内のすべてのファイル指定
    FileName_InFolder = Folder_Path & "\*.*"
    
    'ファイルの削除
    Kill FileName_InFolder
    
    'フォルダの削除
    RmDir Folder_Path

End Sub

Function FolderPath() As String
    
    Dim Shell As Object
    
    Set Shell = CreateObject("Shell.Application") _
       .BrowseForFolder(0, "フォルダを選択してください", 0, "C\")
    
    If Shell Is Nothing Then
        FolderPath = ""
    Else
        FolderPath = Shell.Items.Item.Path
    End If

End Function