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

1 vote136 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
0 vote119 views1 answer
Vba add month to date
VBA
0 vote160 views2 answers
VB
VBA
1 vote141 views1 answer
Vb.net get name by Selection Changed
VBA
8 votes243 views1 answer
Vba make a short integer from two bytes
VBA
0 vote119 views1 answer
Vba add shape oval
VBA
1 vote120 views2 answers
Vba function return array
VBA
2 votes133 views2 answers
Vba code to remove duplicates from a column
VBA
0 vote111 views1 answer
Docker vboxmanage not found
VBA
0 vote120 views1 answer
Excel vba scroll to cell
VBA