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

1 vote196 views1 answer
How to do error handling in access vba
VBA
0 vote216 views1 answer
Putting marquee in vb.net
VBA
0 vote200 views1 answer
Test if form is open vb
VBA
1 vote197 views1 answer
Vba declare api 64 bit 32 bit
VBA
0 vote214 views1 answer
Excel vba open browser
VBA
1 vote193 views2 answers
Get all column names from excel vba
VBA
0 vote217 views1 answer
Thread sleep vb
VBA
0 vote204 views1 answer
Vbs send keys
VBA
0 vote206 views1 answer
Returns an array from function vba
VBA
0 vote201 views1 answer
Vba run command
VBA