a="e: estprandispanget"
'创建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