vba create folder if not exist
'requires reference to Microsoft Scripting Runtime Function MkDir(ByVal strDir As String, ByVal strPath As String) Dim fso As New FileSystemObject Dim path As String path = strPath & strDir If Not fso.FolderExists(path) Then fso.CreateFolder path End If End Function