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 vote210 views1 answer
Excel vba calculate
VBA
0 vote205 views1 answer
Vb get ip address
VBA
0 vote192 views1 answer
How to self delete a vbscript file
VBA
0 vote217 views1 answer
Show unix time in vba
VBA
0 vote226 views1 answer
Freeze panes vba
VBA
0 vote223 views1 answer
Vbnet line chart showing extra space
VBA
0 vote218 views1 answer
Excel vba Column Name to Column Number
VBA
0 vote225 views1 answer
Vba copy file
VBA
0 vote234 views1 answer
Search for text in every worksheet excel visual basic
VBA
0 vote197 views1 answer
Vbnet add new ecel sheet
VBA