【Asp】自动检测并建立多级目录/子目录

ASP自动检测并建立多级目录/子目录：

<%
Dim Fso, A, Tmp, Tmp1
Set Fso = Createobject("Scripting.FileSystemObject")

A = "C:\Program Files\小旋风AspWebServer\wwwroot\test1\test2\test3\test4\a.txt"

For each Tmp in Split(Left(A, InStrRev(A, "\")), "\")
    IF Len(Tmp)>0 Then
        Tmp = Tmp & "\"
        Tmp1 = Tmp1 & Tmp
        IF Fso.FolderExists(Tmp1)=Flase Then Fso.CreateFolder Tmp1
    End IF
Next
%>