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 vote278 views1 answer
Windows Forms dark title bar
VBA
0 vote249 views1 answer
Afficher un message d'erreur vba
VBA
6 votes249 views1 answer
Excel vba check if a string only contains letters
VBA
0 vote247 views1 answer
Excel vba StartUpPosition
VBA
0 vote249 views2 answers
How to update date and time automatically once id is entered in excel vba
VBA
0 vote256 views1 answer
Search for text in every worksheet excel visual basic
VBA
4 votes291 views1 answer
VBA Deep Clone Dictionary
VBA
0 vote246 views1 answer
Vbnet cycle through charaters in string
VBA
0 vote270 views1 answer
Tester si une case est vide vba
VBA
0 vote196 views1 answer
How to self delete a vbscript file
VBA