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 vote303 views1 answer
How to self delete a vbscript file
VBA
0 vote339 views1 answer
Vbnet check if string is only numbers
VBA
0 vote340 views1 answer
Dynamic array vba
VBA
1 vote365 views1 answer
Set font for ms chart vb.net
VBA
3 votes333 views1 answer
Excel vba change format of cell
VBA
1 vote324 views1 answer
Vba declare api 64 bit 32 bit
VBA
0 vote355 views1 answer
Reference to a non-shared member requires an object reference
VBA
0 vote336 views1 answer
Vba type
VBA
0 vote328 views1 answer
Vba code to select image in sheet
VBA
1 vote374 views1 answer
Random number generator vb.net
VBA