Create a Folder if not exists

    Click On below mentioned image to watch the video:

     

     

     

    Sub CreateTheFolder()
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject

    Dim FDRPath As String
    FDRPath = "C:\abcd\pqr"

    If FSO.FolderExists(FDRPath) = False Then
    FSO.CreateFolder (FDRPath)
    MsgBox "Hi Folder Created"
    Else:
    MsgBox "Folder Already exists in the path"

    End If

    End Sub

    DownLoad The Workbook