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 vote349 views1 answer
VBA OR vb6 find OR replace string from the end
VBA
0 vote345 views1 answer
Excel vba clear filter
VBA
1 vote339 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
0 vote336 views1 answer
Worksheet.pastespecial textbox
VBA
1 vote338 views1 answer
Excel vba saveas force overwrite
VBA
0 vote348 views1 answer
Vba array dimensions
VBA
0 vote349 views1 answer
How to enter Vbox manage commands
VBA
1 vote375 views1 answer
Vba login website
VBA
0 vote332 views1 answer
String contins in vba
VBA
0 vote353 views3 answers
Write to text file vb.net
VBA