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

2 votes284 views1 answer
Excel vba check if key is in collection
VBA
0 vote284 views1 answer
Windows Presentation Foundation dark title bar
VBA
0 vote292 views1 answer
Worksheet.pastespecial textbox
VBA
1 vote289 views1 answer
Vba refresh pivot table
VBA
0 vote293 views1 answer
Vb run command
VBA
0 vote307 views1 answer
Find database connection string vb
VBA
0 vote283 views1 answer
Vbnet check if number is even or odd
VBA
0 vote283 views1 answer
Excel vba center userform
VBA
0 vote297 views1 answer
Vba get workbook name
VBA
5 votes818 views1 answer
Vlookup vba
VBA