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

3 votes211 views1 answer
Excel insert blank row for value change in column
VBA
2 votes195 views1 answer
Vba uppercase first letter of each word
VBA
0 vote209 views1 answer
Vba get application version
VBA
0 vote222 views1 answer
VBA
VBA
5 votes198 views1 answer
Excel vba how to unit test vba code
VBA
0 vote176 views1 answer
Vbide vbproject reference
VBA
0 vote204 views1 answer
Change form background image vb
VBA
0 vote212 views1 answer
Excel vba saveas no prompt for overwrite
VBA
0 vote200 views1 answer
Excel vba copy entire sheet paste values
VBA
3 votes252 views1 answer
Vba post request json
VBA