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 vote168 views1 answer
Vba remove last vbcrlf
VBA
0 vote146 views1 answer
Excel protect cells with formulas
VBA
0 vote195 views1 answer
Vbnet check if string is only letters
VBA
0 vote157 views1 answer
Enable macros on opening workbook vba
VBA
0 vote161 views1 answer
Vba pass named range to function
VBA
0 vote151 views1 answer
Quit excel with save changes dialog vb.net
VBA
3 votes167 views1 answer
Vba make long from two words
VBA
0 vote160 views1 answer
Vba array of integers
VBA
0 vote151 views1 answer
Change "location" of binding navigator vb
VBA
-1 vote167 views1 answer
How to correct a number to 2 decimal places in vba
VBA