- 444 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 20:33:00 ]
- sub sub_CreateFolder(strFolderPath) 'フォルダの作成
strParentFolderPath = objFileSystem.GetParentFolderName(strFolderPath)
if objFileSystem.FolderExists(strParentFolderPath) then
else
call sub_CreateFolder(strParentFolderPath) '親フォルダが無ければ再帰的に呼び出し
end if
call objFileSystem.CreateFolder(strFolderPath)
end sub
