dcsimg
Login | Register   
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: Web
Expertise: Intermediate
Dec 21, 2001

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


Create Folders Recursively if They Do Not Exist


This script can be used in ASP or VBScript or Visual Basic. It is an easy way to create a folder tree.
 
Sub CreateFolderTree(ByVal FolderName)
    Dim objFSO
    Dim InterminPath
    Dim Loc
    Dim bCreateFolder
    Dim sName

    sName = FolderName
    bCreateFolder = False

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'Create folders recursively if they do not exist
    InterminPath = ""
    Do
        'Seperate folders
        Loc = InStr(FolderName, "\")
        If Loc = 0 Then
            InterminPath = InterminPath & "\" & FolderName
            FolderName = ""
        Else
            If InterminPath = "" Then
                    InterminPath = Left(FolderName, Loc - 1)
            Else
                    InterminPath = InterminPath & "\" & Left _
(FolderName,
Loc - 1)
            End If
            FolderName = Mid(FolderName, Loc + 1)
        End If

        'Create subfolder in application directory if it _
doesn't exist
        If Not objFSO.FolderExists(InterminPath) Then
            objFSO.CreateFolder (InterminPath)
            bCreateFolder = True
        End If
    Loop While FolderName <> ""

    If bCreateFolder Then
        Msgbox "Created folder " & LCase(sName), ,"Status"

    End If

End Sub
Senthilkumar Palanivelu
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date