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 vote160 views1 answer
Vba sheet visible
VBA
1 vote117 views1 answer
How to open cmd with vbd
VBA
1 vote161 views2 answers
Vba string to date
VBA
0 vote211 views1 answer
Excel vba protect content
VBA
0 vote168 views1 answer
Excel vba urlmon
VBA
0 vote195 views1 answer
Check if cell is dbnullvb.net
VBA
1 vote157 views1 answer
Vba declare api 64 bit 32 bit
VBA
0 vote159 views1 answer
Vb net check if file exists
VBA
0 vote161 views1 answer
Enable macros on opening workbook vba
VBA
0 vote168 views1 answer
How to get the value of optionbutton in vba
VBA