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 vote311 views1 answer
Find and replace textbox
VBA
2 votes287 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
-1 vote281 views1 answer
How to correct a number to 2 decimal places in vba
VBA
5 votes328 views1 answer
Xlvba double quotes in string literal
VBA
0 vote283 views1 answer
Switch pictures with buttons vb.net
VBA
1 vote269 views1 answer
How to do error handling in access vba
VBA
0 vote322 views1 answer
Excel vba convert cells address
VBA
0 vote275 views1 answer
Excel vba copy entire sheet paste values
VBA
0 vote284 views1 answer
.net dark title bar
VBA
0 vote282 views1 answer
Backspace key has stopped working visual studio
VBA