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

8 votes381 views1 answer
Excel vba determine number of elements in a 1D array
VBA
3 votes266 views2 answers
Vba active workbook path
VBA
5 votes238 views1 answer
Xl vba double quotes in string literal
VBA
0 vote224 views1 answer
Vb.net round to 2 decimal places
VBA
0 vote257 views1 answer
Vbnet round to nearnest thousand
VBA
3 votes229 views1 answer
Excel vba last row in range
VBA
0 vote232 views1 answer
Vbscript abs
VBA
2 votes240 views1 answer
Excel vba check if string entirely alpha
VBA
0 vote259 views1 answer
Freeze panes vba
VBA
0 vote217 views1 answer
Vba argument is set
VBA