Create a Folder if not exists
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