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

Source: stackoverflow.com

Vba create directory if not exist

'Don't requires refernce of Microsoft Scripting Runtime
Path = "D:\FolderName\"
If Len(Dir(Path, vbDirectory)) = 0 Then
   MkDir Location
End If

Similar codes

0 vote161 views1 answer
Vba foreach 2d array
VBA
5 votes131 views1 answer
Excel formula how to create strings containing double quotes
VBA
1 vote139 views1 answer
Vba login website
VBA
0 vote122 views1 answer
Vba test optional argument
VBA
0 vote130 views1 answer
Excel vba extract year
VBA
3 votes136 views1 answer
Vba http request json
VBA
4 votes139 views1 answer
VBA Deep Clone Dictionary
VBA
0 vote136 views1 answer
Excel vba unmerge sheet
VBA
0 vote125 views1 answer
Add items to combobox vb.net
VBA
0 vote131 views1 answer
Excel vba protect sheet
VBA