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


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

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
Thanks for your registration, follow us on our social networks to keep up-to-date