Automatically create multilevel folders using the FSO

When we use the FSO to generate static pages, we usually want the generated location to be neat and clear. For example, by year and month, then you will need to get a shape such as "2009/6/" or more levels of folders, so I wrote a function to create a multi-level folder automatically, in the generation of static pages, such as the use of very convenient.

When we use the FSO to generate static pages, we usually want the generated location to be neat and clear. For example, by year and month, then you will need to get a shape such as "2009/6/" or more levels of folders, so I wrote a function to create a multi-level folder automatically, in the generation of static pages, such as the use of very convenient.

Function:

’ --------------------------------
' Automatically create a specified multilevel folder
' strpath is an absolute path
Function Autocreatefolder (strpath) ' as Boolean '
On Error Resume Next
Dim Astrpath, Ulngpath, I, strTmpPath
Dim objFSO
If InStr (strpath, "\") <=0 Or InStr (strpath, ":") <= 0 Then
Autocreatefolder = False
Exit Function
End If
Set objFSO = Server.CreateObject ("Scripting.FileSystemObject")
If objfso.folderexists (strpath) Then
Autocreatefolder = True
Exit Function
End If
Astrpath = Split (strpath, "\")
Ulngpath = UBound (Astrpath)
strTmpPath = ""
For i = 0 to Ulngpath
strTmpPath = strTmpPath & Astrpath (i) & "\"
If not objfso.folderexists (strTmpPath) Then
' Create
Objfso.createfolder (strTmpPath)
End If
Next
Set objFSO = Nothing
If ERR = 0 Then
Autocreatefolder = True
Else
Autocreatefolder = False
End If
End Function

Call Method:

MyPath = "C:\a\b\c\"
If Autocreatefolder (MyPath) Then
Response.Write "Create folder succeeded"
Else
Response.Write "Create folder Failed"
End If