这个简单,在你的添加动作下面使用fso同步创建即可,下面的过程是你需要的
'fso_folder_new_name-文件夹名称
Sub fso_folder_new(fso_folder_new_name)
on error resume next
Set lq_fso=Createobject("Scripting.FilesystemObject")
'文件夹不存在创建
if not lq_fso.FolderExists(""&fso_folder_new_name&"") then
lq_fso.CreateFolder ""&fso_folder_new_name&""
end if
Set lq_fso=Nothing
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024