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