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 vote216 views1 answer
Vba change active sheet
VBA
0 vote190 views1 answer
Loop through all text boxes in a form vb
VBA
0 vote195 views1 answer
Open file dialog in vb.net
VBA
0 vote196 views1 answer
Vbs expand env var
VBA
0 vote212 views1 answer
How to enter Vbox manage commands
VBA
0 vote195 views1 answer
String contins in vba
VBA
3 votes187 views1 answer
Vba make long from two shorts
VBA
0 vote190 views1 answer
Menus act like radio buttons vb.net
VBA
0 vote186 views2 answers
How to update date and time automatically once id is entered in excel vba
VBA
0 vote198 views1 answer
Regex numeric digits
VBA