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

3 votes203 views2 answers
Vba date to string
VBA
-1 vote177 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
0 vote201 views1 answer
Vbnet check if string is only numbers
VBA
0 vote209 views1 answer
Vba ternary
VBA
0 vote176 views1 answer
Excel vba convert cells address
VBA
0 vote172 views1 answer
Selecttoken em vbnet e json
VBA
0 vote155 views1 answer
Excel vba disable screen update
VBA
0 vote164 views1 answer
Vba sheet visible
VBA
8 votes244 views1 answer
Vba make integer
VBA
0 vote167 views1 answer
Limit combobox to list vba
VBA