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 vote291 views1 answer
Vbscript abs
VBA
0 vote284 views1 answer
Docker vboxmanage not found
VBA
18 votes443 views3 answers
Excel-vba make integer
VBA
5 votes282 views1 answer
Vba array worksheet.index
VBA
0 vote312 views1 answer
Group controls programmatically vb
VBA
0 vote326 views1 answer
Sort dictionary by key vba
VBA
0 vote305 views1 answer
Selecttoken em vbnet e json
VBA
8 votes341 views1 answer
Run command pormpt in background windows
VBA
3 votes322 views1 answer
Excel vba make long from two shorts
VBA
22 votes498 views1 answer
Xl vba check for folder
VBA