下では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 |