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 vote233 views2 answers
Excel vba store array and write to sheet
VBA
0 vote194 views1 answer
Vba clear collection
VBA
0 vote181 views1 answer
Discern between file and folder given path vb.net
VBA
2 votes125 views1 answer
Excel vba pause
VBA
-1 vote182 views1 answer
VBA check if a cell contains a letter or string
VBA
0 vote185 views1 answer
Vba keep command window open
VBA
0 vote181 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote183 views1 answer
Vba array dimensions
VBA
1 vote165 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA
0 vote178 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA