Table of Content

handy script to create new folder, will check folder exisiting or not before create.

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CreateFolder(folderpath)
 
Dim objFSO, objFolder
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
If Not objFSO.FolderExists(folderpath) Then
    Set objFolder = objFSO.CreateFolder(folderpath)
Else
    MsgBox "Folder: " & folderpath & " existing!"
End If
 
End Sub