フォルダーを作成する

今回はフォルダ作成についてメモしておきます。

フォルダの作成

MkDirステートメントを使います。”Make Directory”の略です。

実行プログラム

Sub Sample7_9_1()

    MkDir "C:\excelmemo\Sample7_9_1"

End Sub

Sub Sample7_9_1()

MkDir "C:\excelmemo\Sample7_9_1"

End Sub

実行結果

FileSystemObjectを使ったフォルダの作成

CreateFolderメソッドを使います。

実行プログラム

Sub Sample7_9_2()

    Dim objFSO   As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    objFSO.createfolder ("C:\excelmemo\Sample7_9_2")

    Set objFSO = Nothing

End Sub

Sub Sample7_9_2()

Dim objFSO As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.createfolder ("C:\excelmemo\Sample7_9_2")

Set objFSO = Nothing

End Sub

実行結果