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 vote298 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote336 views1 answer
Vbnet revrese the order of character in string
VBA
3 votes303 views1 answer
Vba folderexists
VBA
4 votes318 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
5 votes369 views1 answer
Excel vba last byte from INTEGER
VBA
2 votes257 views1 answer
Excel vba pause
VBA
0 vote268 views1 answer
How to sort datagridview in vb.net
VBA
-1 vote322 views1 answer
Vba code to add new column in table
VBA
0 vote304 views1 answer
Reset border color textbox vba
VBA
0 vote307 views1 answer
Replace spaces with underscores vbnet
VBA