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 votes145 views1 answer
Excel vba make a short integer from two bytes
VBA
2 votes156 views1 answer
Excel vba check if string entirely alpha
VBA
0 vote153 views1 answer
Excel vba StartUpPosition
VBA
0 vote161 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote171 views1 answer
Search for text in every worksheet excel visual basic
VBA
1 vote149 views1 answer
Excel vba first and last row and column in range
VBA
0 vote144 views1 answer
Add items to combobox vb.net
VBA
5 votes168 views2 answers
Excel vba write to the windows registry
VBA
0 vote95 views1 answer
Vba select file in folder
VBA
1 vote145 views1 answer
Add a index column power bi
VBA