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 vote248 views1 answer
How to enter Vbox manage commands
VBA
0 vote223 views1 answer
Vba len variant
VBA
0 vote243 views1 answer
Vba nested dictionary
VBA
0 vote231 views1 answer
Vba find last column in a row with data
VBA
22 votes290 views1 answer
Excel vba check if directory exists
VBA
1 vote222 views1 answer
Excel format cell as kilowatts
VBA
0 vote232 views1 answer
Vba remove the first character of string
VBA
0 vote207 views1 answer
Add items to combobox vb.net
VBA
0 vote226 views1 answer
For each item in folder outlook vba
VBA
0 vote244 views1 answer
Vba integer to double
VBA