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 |