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

20 votes515 views1 answer
Excel vba recursive example factorial function
VBA
0 vote227 views1 answer
Visual basic msdos
VBA
0 vote240 views1 answer
Excel vba protect shapes
VBA
0 vote216 views1 answer
How to use VBA to add new record in MS Access?
VBA
0 vote233 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote244 views1 answer
Selecttoken em vbnet e json
VBA
0 vote219 views1 answer
Vba change named range address
VBA
0 vote208 views1 answer
Change "location" of binding navigator vb
VBA
1 vote262 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
5 votes239 views1 answer
Excel vba second byte from INTEGER
VBA