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 vote220 views1 answer
Vba remove numbers from string
VBA
0 vote228 views1 answer
Vba boolean to string
VBA
0 vote226 views1 answer
Dynamic array vba
VBA
0 vote267 views1 answer
Vba dictionary length
VBA
0 vote244 views1 answer
Vbnet click on dgv cells
VBA
1 vote241 views1 answer
Set font for ms chart vb.net
VBA
0 vote226 views1 answer
Excel vba existence of a file
VBA
5 votes171 views1 answer
Vlookup vba
VBA
1 vote217 views2 answers
Get all column names from excel vba
VBA
0 vote235 views1 answer
Vb.net visible property dgv collumn not working
VBA