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

8 votes237 views1 answer
Run command pormpt in background windows
VBA
0 vote250 views1 answer
How to enter Vbox manage commands
VBA
4 votes223 views1 answer
Excel vba how to reset usedrange
VBA
1 vote206 views1 answer
Excel format cell as kilowatts
VBA
0 vote243 views1 answer
Vba verticalalignment
VBA
0 vote210 views1 answer
Excel vba center userform
VBA
0 vote202 views1 answer
Replace spaces with underscores vbnet
VBA
0 vote239 views1 answer
Delete all controls in an area vb
VBA
0 vote210 views1 answer
Afficher un message d'erreur vba
VBA
1 vote231 views1 answer
Vba login website
VBA