ray88’s diary

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

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

■Pathで表されるフォルダを作成する

Function CreateFolder(Path As String) As Folder

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 Not FSO.FolderExists(MyPath & "\test") Then
        '同名フォルダがなければフォルダを作成する
        FSO.CreateFolder MyPath & "\test"
    End If    
    Set FSO = Nothing
End Sub