Functions for automatically creating multilevel folders using the FSO

Source: Internet
Author: User
Tags exit end functions

Turn on FSO permission to execute Regsvr32.exe scrrun.dll in Start-"run". If you want to turn off FSO permissions, add the/u parameter in the above command. The key value location in the registry: HKEY_CLASS_BOOT\F.S.O. There is a method in the FSO that is createfolder, but this method can only create a new folder in the presence of a folder above it, so I wrote a function to create a multilevel folder automatically, which is very convenient for the generation of static pages. Function:

The following are the referenced contents:
’ --------------------------------
' 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:

The following are the referenced contents:

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



Related Article

Alibaba Cloud 10 Year Anniversary

With You, We are Shaping a Digital World, 2009-2019

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.