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 vote223 views2 answers
Excel vba prevent save
VBA
0 vote240 views1 answer
Excel vba disable screen update
VBA
3 votes233 views1 answer
Vba folderexists
VBA
0 vote248 views1 answer
Excel vba named range exists
VBA
1 vote234 views1 answer
Add a index column power bi
VBA
5 votes267 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote234 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote243 views1 answer
Excel vba join variant array
VBA
1 vote239 views1 answer
Extract the second word in a text in excel
VBA
-1 vote238 views1 answer
Vba code to add new column in table
VBA