a="e:\test\pran\dispan\get"
'创建a的整个路径
set fso=createobject("scripting.filesystemobject")
str="\"
getpath=split(a,str)
for i= 1 to ubound(getpath)
path=path & str &getpath(i)
if not fso.folderexists(getpath(0)& str &path)then
fso.createfolder(getpath(0)& str &path)
end if
next
'创建a的整个路径
set fso=createobject("scripting.filesystemobject")
str="\"
getpath=split(a,str)
for i= 1 to ubound(getpath)
path=path & str &getpath(i)
if not fso.folderexists(getpath(0)& str &path)then
fso.createfolder(getpath(0)& str &path)
end if
next