フォルダの作成：FileSystemObject.CreateFolder

FileSystemObject.CreateFolderメソッドによってフォルダを作成することができます。
下ではfsにFileSystemObjectを指定した後、CreateFolderメソッドで C:\tmp\workフォルダを作成します。エラー処理がなされていないため、既にこのフォルダが存在する場合にはエラーで終了します。

Sub test()   Dim fs As Object   Set fs = CreateObject("Scripting.FileSystemObject")  ' オブジェクトを指定   fs.CreateFolder "C:\tmp\work"                                     ' フォルダを作成   Set fs = Nothing End Sub