フォルダの作成(CreateFolder メソッド)
FileSystemObject(FSO)を使用して、引数で指定した名前のフォルダを作成します。FileSystemObject(FSO)のインスタンスを生成する方法は、ファイルシステムオブジェクト(FileSystemObject)の使い方 を参照してください。
【書式】
object.CreateFolder ( path )
引数・戻り値
- object ・・・ FileSystemObject オブジェクトを指定します。
- path ・・・ 作成するフォルダの名前を文字列で指定します。
- 戻り値 ・・・ Folder オブジェクト
引数 path で指定したフォルダが既に存在している場合、エラーが発生します。
CreateFolder メソッド 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Sub Sample_CreateFolder() '新規フォルダを作成 Dim fso As New FileSystemObject Dim FolderName As String FolderName = "C:\Documents\data\newfolder\" With fso If .FolderExists(FolderName) = False Then .CreateFolder (FolderName) MsgBox FolderName & " を作成しました" Else MsgBox FolderName & " は既に存在しています。" End If End With End Sub |