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

4 votes199 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
0 vote198 views1 answer
Vba collection contains
VBA
0 vote206 views1 answer
.net crash app
VBA
0 vote201 views1 answer
Freeze panes vba
VBA
0 vote199 views1 answer
Excel vba combine ranges
VBA
0 vote185 views1 answer
Make all controls in an area not visable vb
VBA
0 vote200 views1 answer
Delete rows in excel vba code
VBA
0 vote190 views1 answer
Vbnet line chart showing extra space
VBA
0 vote195 views1 answer
Excel vba unmerge sheet
VBA
0 vote193 views1 answer
Vba check 32 or 64 bit
VBA