■FolderSpaceで表されるフォルダを削除する。Foceには読み取り専用属性が設定されるフォルダを削除するかどうかをブール値で指定する
Sub DeleteFolder(FolderSpec As String,[Force As Boolean = False])
VBA FileSystemObjectの主なプロパティとメソッド - ray88’s diary
VBA FileSystemObject(ファイルシステムオブジェクト)事前バインディングと実行時バインディング - ray88’s diary
■サンプルコード
Sub Test() Dim FSO As Object Dim MyPath As String 'ファイルシステムオブジェクトをインスタンス化 Set FSO = CreateObject("Scripting.FileSystemObject") MyPath = "C:\Users\デスクトップ\ExcelVBAプロジェクト\FSOテスト" '対象フォルダが存在するかチェック If FSO.FolderExists(MyPath & "\01") Then '対象フォルダがあればフォルダを削除する FSO.DeleteFolder MyPath & "\01" End If Set FSO = Nothing End Sub