Create folder and another folders inside

[kandanuru]

Hi,

Can you please guide me with VB script for below condition->
if folder not present create a folder "Runtime"( in C:\Users\"&Environment("UserName")&"\AppData\Local\Temp\) . Inside "Runtime" folder ,if folders not present script needs to create folders "Execution" & "Results".

Please let me know if you need any more information.

Regards,
Kandy

 

[John_w]

Try this:

Public Sub Create_Folders()

    Create_Path "C:\Users\" & Environ$("UserName") & "\AppData\Local\Temp\Runtime\Execution"
    Create_Path "C:\Users\" & Environ$("UserName") & "\AppData\Local\Temp\Runtime\Results"
    
End Sub

Private Function Create_Path(path As String)

    Dim folders As Variant, i As Integer
    
    folders = Split(path, "\")
    path = folders(0)
    For i = 1 To UBound(folders)
        path = path & "\" & folders(i)
        If Dir(path, vbDirectory) = "" Then MkDir path
    Next

End Function