フォルダの作成
MkDirステートメントを使います。”Make Directory”の略です。
実行プログラム
1 2 3 4 5 |
Sub Sample7_9_1() MkDir "C:\excelmemo\Sample7_9_1" End Sub |
実行結果
![](http://excelmemo.com/wp-content/uploads/PIC070901-300x167.jpg)
FileSystemObjectを使ったフォルダの作成
CreateFolderメソッドを使います。
実行プログラム
1 2 3 4 5 6 7 8 9 10 11 |
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 |
実行結果
![](http://excelmemo.com/wp-content/uploads/PIC070902-300x167.jpg)