用VBS创建多层文件夹——简单的,求热心人指点？

来源：百度知道 编辑：UC知道 时间：2024/05/24 23:57:00
比如我要创建文件夹"c:\a\a\a",其中"c:\a",不存在。
我用fso.CreateFolder("c:\a\a\a")时出错，提示“找不到路径”！
怎样才能用VBS创建一个多层文件夹呢？
在线等
在线等,要快啊*

' VBScript sample using Windows Script Host

Sub create(fso,path)
If fso.FolderExists(path) Then
Exit Sub
End If
If Not fso.FolderExists(fso.GetParentFolderName(path)) Then
create fso,fso.GetParentFolderName(path)
End If
fso.CreateFolder(path)
End Sub

Set fso = CreateObject("scripting.filesystemobject")
create fso,"c:/a/a/a/a/a/a/a/"
set fso = Nothing