VBAのIE(InternetExplorer)制御に便利なサブルーチンを紹介しています。
Sub folderCreate(newFolderPath As String)
'FileSystemObjectインスタンスを生成
Set objSFO = CreateObject("Scripting.FileSystemObject")
'フォルダの存在確認
If Not objSFO.FolderExists(newFolderPath) Then: objSFO.CreateFolder newFolderPath
'オブジェクトの解放
Set objSFO = Nothing
End Sub
引数名 | データ型 | 内容 | 値の事例 | 初期値 | 省略 |
---|---|---|---|---|---|
newFolderPath | String | フォルダを作成するパス文字列 | "C:\Users\vba-ie\Desktop\vba-ie\test" | × |
「newFolderPath」は必須項目となります。
「newFolderPath」にフォルダを作成するパスを入力します。
今回の例で言えば、ファイルと同じディレクトリに「image」フォルダを作成しています。