ray88’s diary

お仕事で困ったとき用の自分用の覚書

VBA ファイルシステムオブジェクト・DeleteFolder

■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